Nashville Venues Project Data Portal

NOTES AND TO-DO’s:

• Write a methodology and data sources sections - 2 and 3 (Sofia - started)
• Annotate maps and charts, to contain proper titles, axis titles, and styling (Sofia)
• Add section number references to takeaways, refine risk indicators. (Michael)

Week of 9/27

• Create graphics for each venue zoom in - see end of document - sect 9
• Create some general census maps, tables, figures to illustrate economic geography in Nashville and changes (Sofia) - Sect. 8.1.

Unknown timeframe

• Add capacity data and re-run data_markdown with “venue ladder” and cfp comparison (TBD - ??)
• Render graphics for document

Recently finished:

• Associate license data with venues in a separate script (Sofia) - by 9/15
• Fix some venue data points - before re-running with licenses (Michael): Nissan Stadium events/month, 3rd and Lindsley independence - DONE
• Add property condition, year built, building use and other data in the data_markdown (Michael) DONE
• Analyze recent sales values and impart risk scores (Michael) - DONE
• Do some comparisons with CFP database (Michael) - DONE
• k-means clustering (Michael)
• Please double check the census data for Nashville (Sofia) - DONE - Michael 9/18

# LOAD IN THE CFP DATA FOR COMPARISONS

# Read in district aggregates
d1_aggregates <- st_read("~/GitHub/CFP/unified__city_data/district_aggregates/d1_aggregates_11_16_22.geojson") %>%
  st_as_sf(crs = 4326)

d2_aggregates <- st_read("~/GitHub/CFP/unified__city_data/district_aggregates/d2_aggregates_06_15_23.geojson") %>%
  st_as_sf(crs = 4326) %>%
  rename(d2_name = d2_name.x)


# Read in venues
main_venue_data <- read.csv("~/GitHub/CFP/unified__city_data/main_venue_data_final_testSydney.csv") %>%
  mutate(city = ifelse(city == "Solna", "Stockholm", city))

# Read in EPSG information

source("~/GitHub/CFP/unified__city_data/epsg_list.R")

# LOAD IN THE NASH DATA

# Read in district aggregates
d1_aggregates_nash <- st_read("~/GitHub/Nashville_IMV/data/venue_tables/to_map/d1_aggregate_v6.geojson") %>%
  st_as_sf(crs = 4326) %>%
  rename(venue_count = num_venues,
         d1_name = Communit_1)

d2_aggregates_nash <- st_read("~/GitHub/CFP/unified__city_data/district_aggregates/d2_aggregates_06_15_23.geojson") %>%
  st_as_sf(crs = 4326) %>%
  rename(d2_name = d2_name.x)


# Read in venues - THIS IS THE FILEPATH IN Data_Markdown.Rmd as of 9/19/2023
nash_venue_data <- st_read("~/GitHub/Nashville_IMV/data/venue_tables/to_map/venues_v6.geojson") %>%
  st_transform(crs = 4326) %>%
  group_by(name) %>%
  slice(1) %>%
  ungroup() %>%
  mutate(x=map_dbl(geometry, ~st_centroid(.x)[[1]]),
         y=map_dbl(geometry, ~st_centroid(.x)[[2]])) %>%
  mutate(X = row_number()) %>%
  as.data.frame()

ll <- function(dat, proj4 = 4326){
st_transform(dat, proj4)
}

base_map1 <-get_stamenmap(bbox = unname(st_bbox(ll(st_buffer(st_centroid(d1_aggregates_nash),10000)))),
                    force = TRUE, maptype = "toner-lite", zoom = 11)

## Warning: st_centroid assumes attributes are constant over geometries

1. Key Takeaways

Nashville is a globally significant live music cluster, comparable in scale to major international cities. It is, however, not characterized by an experimental or community-oriented programming approach. Nashville’s IMVs are regarded by local music experts and community members as more likely to present experimental and local programming with a focus on the promotion of music and artists. IMVs are less likely to locate near the Downtown center of the cluster, and they are paying less, on average, for rent. This is consistent with observed patterns in Nashville and elsewhere where venues trade off investments in programming against rents. It also suggests that they are more risk-averse and vulnerable. Venues that regarded as likely to have operational relationships with corporate partners are willing to pay more in rent and tolerate more risk.

Data governance and procedures related to live music, and government land and licensing records more generally, are lacking. Open data portals do not publish common data sets. Licensing and land use classifications do not capture coherent administrative data about live music, and internal data governance is poor - meaning that meaningful records cannot be easily examined or related, and therefore cannot be understood in everyday decisionmaking.

1.1. Venue database characteristics

• Researchers, community members, and focus group experts identified 253 spaces used for music in Nashville on a periodic or regular basis (Section 4). 113 of these were identified as being “Music Spaces”, where music is likely to be the primary offer, and events are held more than once per week. The remainder (140) were considered “Occasional Music Spaces” (Section 4.1.2)

• 24 of these Music Spaces (and 14 Occasional Music Spaces) were identified by researchers, community members, and focus group experts as likely to be IMVs (Completely independent ownership and operations). 49 Music Spaces were identified as being “Quasi-Independent” because some of their functions were assessed as likely to be contracted to corporate outside entities or they had legal ownership affiliations to other businesses. 40 Music Spaces were assessed as likely to be completely non-independent.

1.2. Community programming assessment

• Community members and focus group experts assessed the likelihood of different types of program characteristics as a way to understand how locally or artistically focused the venue’s cultural offer was likely to be. Although this is an obviously subjective exercise, it allows a broad understanding of how Nashvillians understand the nature of programming in the city’s venues.

• IMVs were, on average, more likely to present experimental programming than Quasi-Independent or Non-Independent music spaces. However, amongst all venue classifications, experimental programming was seen as generally unlikely to be presented in Nashville venues. Compared to VibeLab/Praxis’ Creative Footprint venue survey (which collects the same metric), Nashville venues were, on average ranked lowest for experimental likelihood amongst all 7 cities.

• IMVs are, on average, more likely to present community-focused programming than Quasi-Independent or Non-Independent music spaces.

• IMVs are, on average, more likely to promote lineups and artists in their marketing than Quasi-Independent or Non-Independent music spaces.

• Non-Independent venues were assessed to be dramatically more likely to put on non-music programming - including talks, films, panel discussions or other types of entertainment-driven, non-music uses. IMVs and Quasi-IMVs seem to be more likely to focus on music as a singular program type.

1.3. Economic Geography

• Music spaces make strong locational choices based on a range of factors - including access to transportation and customers, but also based on land costs that allow for risk-taking in programming - local content, experimental content, and a music-focused program.

• Nashville music spaces, like those observed elsewhere by CFP, are trading off programming investments and rents. - Regardless of type - music spaces with lower appraised value are observed to be more likely to present community-oriented and experimental programming (IMV or not).

• Venues are also trading off independence against financial risk. IMVs are located in areas with dramatically lower land values than Quasi-IMVs and non-IMVs, on average. It’s not clear the degree to which this might have been different before major closures in 2019-22 - but some notable former IMVs with high real estate risk moved into the Quasi and non-IMV categories. IMVs, by location, are exposed to lower localized sales volumes, lower ratio of venue land value to nearby venue land value) than non-IMV Music Spaces.

• The geographic center of gravity of Nashville’s live music cluster is Downtown. It is an incredibly dense cluster, with 52 music spaces and 55 occasional music spaces. However, IMVs tend to be located, on average, further from this centroid. Less than 10% of these music spaces are IMVs. IMVs are most concentrated in East Nashville, South Nashville. The downtown planning area has the highest percentage change in population density and rents amongst any Metro planning area from 2010-2020 - suggesting that the attractiveness of Downtown is increasing, and that conflicts with residents are inevitable. This is the area most frequented by tourists and best served by regional transportation. But the policy focus on the central cluster, by default, excludes IMVs.

• On average, venues in South, North, East and West Nashville were assessed by local focus groups and community members as having higher likelihood of experimental, community focused program than Downtown.

1.4. Land Use, Regulation and Building Characteristics

• Live music is played in an extraordinary variety of contexts in Nashville - in concert halls and auditoriums, but also in strip malls, restaurants, and stores, mixed use complexes with apartments or offices, hotels and even on docks and marinas. Most of the time, when music is being played, it’s on land that is primarily being designated for use as something else. IMVs and Quasi-IMVs are more likely to be in bar/nightclub, restaurant or retail contexts, whereas Non-Independents span a very wide variety of uses, including large format industrial reuse and institutional spaces.

• Building quality - building stock was generally listed as being “Average” with a small few exceptions

• Zoning - what are the types we are seeing SOPHIA CAN YOU CHECK ON THE ZONING DESCRIPTIONS?

• Capacities - need this from fire.

• Zoning, Land Use and Business Licensing data and classifications do not capture the location or nature of live music activity in Nashville, making it extremely difficult to monitor the activity in the sector or direct aid or funding to it. Only 3 (THREE) businesses that were identified as primarily Music Spaces were listed with a primary business type of Performance Space. Most are listed as Drinking or Food estabilishments. Only 18.5% of music spaces and occasional music spaces have are identified in administrative records as having events, music, theater or nightclub use.

• Data governance related to these sets is far below national standards - in terms of open data availability, inter-operatiblity of government record systems and data teams, and in terms of the meaningful administrative indicators related to live music. There is no ability to understand live music through licensing, business, or land records.

1.5. Multi-City Comparison with CFP Database

• Nashville has a higher per capita number of spaces where music is being presented (either occasionally or as a primary function) than was observed during CFP studies of New York (2018), Berlin (2017), Tokyo (2019), Stockholm (2021) or Montreal (2022). Of CFP cities, only Sydney had higher density - albeit in a study confined to a small portion of the metro area (2023).

• Downtown Nashville is one of the highest density clusters of venues - comparable in size to centreal Berlin districts and Tokyo’s Shibuya. East Nashville is also a globally significant cluster - with a number of venues rivaling that of major areas of nightlife.

• Amongst CFP cities - Nashville has a program profile most similar to that of Stockholm - relatively low scores on experimentation, community program - but it was ranked comparatively well on the fact that venues promote music as a core offer. This comparison is based on all of the music spaces collected in in the community process, not just the regular music spaces (other CFP city databases also consist of spaces that host music a minimum of once per month)

• Nashville is similar to Montreal and Sydney in that it is automobile oriented - with demographic indicators less heavily driven by bid-rent functions and agglomeration effects associated with fixed transportation.

1.7. Risk Exposure

IMVs, Quasi-IMVs and Non-IMVs are exposed to similar amounts of development risk, on average. However, IMVs are far less prepared to offset risk than their competitors.

We define cost risk exposure as a composite measure of the intensity of nearby real estate, relative cost of nearby real estate activity, lack of site control, building condition, community-assessed programming investments, and community identified threats from licensing or neighbor conflicts.

1.8. US Census Analysis

TBD

2. Data Sources

• IMV data set

• Chamber of Commerce Data (link)

• US Census

• Nashville Metro Cadastral

• Nashville Metro Parcels, Property Characteristics

• Nashville Metro Fire Inspection Data

• Nashville Planning Districts

• Business license data

3. Methods

What did we do?

We collected the data set with liaisons, community members and desk research. This was an iterative process in which we reviewed and requested more data to fill gaps. The result was a living venue data set for Nashville which involves an informative survey about the ownership and operation of each venue and occasional music space, as well as general site information.

We related each venue to it’s APN number (a property identifier) through an arduous manual process and joined it to tax records, license records, business inspections, and other municipal data. APN numbers act as a key to finding an array of information on a property, however these properties often contain many addresses and required further work to show only information for addresses with music performance areas. Throughout this data process, we kept notes on what edits to municipal data we might propose in order for studies like ours to be done faster in the future.

We created variables for square footage cost, distance from the economic center of Nashville, and many more variables that inform on the accessibility of these music spaces to audiences, musicians, programmers, and owners. From there we aggregated the data by neighborhood in Nashville in order to get a sense of broader trends. Both our venue data and neighborhood summary data were visualized in order to make sense of where people are hosting and attending live music events, and where that activity might be in need of help.

4. Venue Database

Searchable database

datatable(nash_venue_data, 
          options = list(pageLength = 10))

4.1. Total number of venues

• How many venues

nrow(nash_venue_data)

## [1] 253

4.1.2. Number of IMVs

What is a dedicated music venue? What is an independent music venue?

A music space - More than 1 show per week (5+ per month), is live music the purpose rated “somewhat likely” or “very likely”

nash_venue_data %>%
  group_by(music_space) %>%
  tally()

## # A tibble: 2 × 2
##   music_space                n
##   <chr>                  <int>
## 1 Music Space              113
## 2 Occasional Music Space   140

nash_venue_data %>%
  group_by(music_space, IMV) %>%
  tally()

## # A tibble: 6 × 3
## # Groups:   music_space [2]
##   music_space            IMV                           n
##   <chr>                  <chr>                     <int>
## 1 Music Space            Indep. Owned and Operated    24
## 2 Music Space            Non-Independent              40
## 3 Music Space            Quasi-independent            49
## 4 Occasional Music Space Indep. Owned and Operated    14
## 5 Occasional Music Space Non-Independent              66
## 6 Occasional Music Space Quasi-independent            60

4.2. Venue locations

Music spaces

ggplot()+
    geom_sf(data = d1_aggregates_nash,
          fill = '#f0f0f0', 
          color = 'white')+
  geom_point(data = nash_venue_data,
             aes(x = x, y = y, color = music_space),
             alpha = 0.3, size = 1)+
  mapTheme

Music spaces by indepenence

ggplot()+
    geom_sf(data = d1_aggregates_nash,
          fill = '#f0f0f0', 
          color = 'white')+
  geom_point(data = nash_venue_data %>%
               filter(music_space == "Music Space"),
             aes(x = x, y = y),
             alpha = 0.3, size = 1)+
  facet_wrap(~IMV)+
  mapTheme

4.2.1. Interactive Map

l <- leaflet() %>% 
  addProviderTiles(providers$Esri.WorldTopoMap) %>%
  setView(lng = mean(nash_venue_data$x, na.rm = TRUE),
          lat = mean(nash_venue_data$y, na.rm = TRUE),
          zoom = 10) %>%
  addScaleBar(position = "topleft") %>%
  addCircleMarkers(data= nash_venue_data,
                   lng=~x, 
                   lat=~y,
                   radius =~ 1, 
                   fillOpacity =~ 1,
                   color =~ "blue",
                   label=~paste(name, address_admin, IMV))

l

nash_venue_data %>%
  st_as_sf(coords = c("x","y"), 
           crs= 4326) %>%
  filter(music_space == "Music Space") %>%
  select(name, address_admin, APN, IMV, ownership_structure, independent_booking, capacity, TotlAppr) %>%
  mapView(., zcol = "IMV")

4.2.2. Heat map (ggplot)

This is JUST FOR MUSIC SPACES, does not include occasional music spaces

fishnet <- st_make_grid(d1_aggregates_nash %>%
                          st_transform(crs = 2274), 
                        cellsize = 5280) %>% #size in feet - half mile
  st_sf() %>%
  st_transform(crs = 4326)

fishnet <- fishnet[d1_aggregates_nash %>%
                          st_transform(crs = 4326),] %>%
  mutate(uniqueID = rownames(.)) %>%
  select(uniqueID) %>%
  mutate(lon=map_dbl(geometry, ~st_centroid(.x)[[1]]),
         lat=map_dbl(geometry, ~st_centroid(.x)[[2]]))

# Join the fishet to the points

fishnet <- st_join(fishnet, 
                nash_venue_data %>%
                  filter(is.na(x)== FALSE,
                         is.na(y)== FALSE) %>%
                  filter(music_space == "Music Space") %>%
                  st_as_sf(coords = c("x", "y"), crs = 4326), 
                join = st_intersects, 
                left = TRUE) %>%
  select(uniqueID, X) %>%
  group_by(uniqueID) %>% 
  summarise(n_venues = n_distinct(X, na.rm = TRUE)) %>%
  #mutate(n = ifelse(n == 1, 0, n)) %>%
  #rename(n_venues = n) %>%
  as.data.frame() %>%
  select(-geometry) %>%
  left_join(fishnet, .)

## Joining with `by = join_by(uniqueID)`

# Make sure you set the labels here to reflect the actual max density by cell

max(fishnet$n_venues)

## [1] 41

ggplot()+
  geom_sf(data = d1_aggregates_nash,
          fill = '#f0f0f0', 
          color = 'white')+
  geom_sf(data = fishnet %>%
            filter(n_venues >0), 
          aes(fill = n_venues),
          color = "transparent",
          alpha = 0.4)+
  scale_fill_viridis('VENUES/\nmi^2', direction = -1,
                     limits=c(1,max(fishnet$n_venues)), breaks=c(1, max(fishnet$n_venues)),
                     labels=c("1",max(fishnet$n_venues)))+
  labs(
    title = "VENUE DENSITY - Nashville, 2023",
    subtitle = "",
    caption = "Data: PennPraxis, Metro Nashville")+
  mapTheme

ggmap(base_map1) +
 geom_sf(data = ll(fishnet %>%
            filter(n_venues >0)),
            inherit.aes = TRUE,
          aes(fill = n_venues),
          color = "transparent",
          alpha = 0.4)+
  scale_fill_viridis('VENUES/\nmi^2', direction = -1,
                     limits=c(1,max(fishnet$n_venues)), breaks=c(1, max(fishnet$n_venues)),
                     labels=c("1",max(fishnet$n_venues)))+
  labs(
    title = "VENUE DENSITY - Nashville / Davidson County, 2023",
    subtitle = "",
    caption = "Data: PennPraxis, Metro Nashville")+
  mapTheme

## Coordinate system already present. Adding new coordinate system, which will
## replace the existing one.

4.2.3. Point Map (static)

4.2.4. Map by Planning District (count)

TO DO ONCE d1_aggregates_nash is set

4.3. IMV Status

4.3.1. Independent Ownership

ggplot(data = nash_venue_data %>%
         filter(is.na(ownership_structure) == FALSE))+
  geom_bar(aes(ownership_structure), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Q: Is the venue independently owned and operated?",
    subtitle = "Independence - no association with another business through common ownership\n or affiliation (sharing of employees, resources, branding etc.,)",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  facet_wrap(~music_space)+
  plotTheme

## Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
## ℹ Please use `linewidth` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

4.3.2. Corporate Function

ggplot(data = nash_venue_data %>%
         filter(is.na(independent_booking) == FALSE))+
  geom_bar(aes(independent_booking), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Are booking or promotion contracted to corporate partners? ",
    subtitle = "",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  facet_wrap(~music_space)+
  plotTheme

ggplot(data = nash_venue_data)+
  geom_bar(aes(IMV), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "IMV Status",
    subtitle = "Independent Ownership Structure and Independent Booking & Promotion",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  facet_wrap(~music_space)+
  coord_flip()+
  plotTheme

4.4. Capacity

4.4.1. Histogram of capacity

NOTE - These data are not complete as of 9/5 - we are awaiting data from Nash FD - these are data from the Chamber’s study several years ago and very incomplete

ggplot(data = nash_venue_data %>%
         mutate(capacity = as.numeric(capacity)) %>%
         filter(capacity < 5000))+
  geom_histogram(aes(capacity), fill = CityPalette[6], alpha = 0.6, binwidth = 250)+
  #scale_fill_viridis_d()+
  labs(
    title = "Capacity",
    subtitle = "Capacities Over 5000 are removed",
    x="",
    y="Occupants",
    #fill = "CFP City",
    caption = "Data: Nashville Fire Dept")+
  plotTheme

## Warning: There was 1 warning in `mutate()`.
## ℹ In argument: `capacity = as.numeric(capacity)`.
## Caused by warning:
## ! NAs introduced by coercion

4.4.2. Capacity by IMV status

ggplot(data = nash_venue_data %>%
         mutate(capacity = as.numeric(capacity)) %>%
         filter(capacity < 5000) )+
  geom_histogram(aes(capacity), fill = CityPalette[6], alpha = 0.6, binwidth = 250)+
  #scale_fill_viridis_d()+
  labs(
    title = "Capacity",
    subtitle = "Capacities Over 5000 are removed",
    x="",
    y="Occupants",
    #fill = "CFP City",
    caption = "Data: Nashville Fire Dept")+
  facet_wrap(~IMV)+
  plotTheme

## Warning: There was 1 warning in `mutate()`.
## ℹ In argument: `capacity = as.numeric(capacity)`.
## Caused by warning:
## ! NAs introduced by coercion

There is still a ton of missing capacity data as of 8/16 - MF

nash_venue_data %>%
         mutate(capacity = as.numeric(capacity)) %>%
  group_by(IMV) %>%
  summarize(total_capacity = sum(capacity, na.rm = TRUE),
            median_capacity = median(capacity, na.rm = TRUE)) %>%
  kable() %>%
  kable_styling()

## Warning: There was 1 warning in `mutate()`.
## ℹ In argument: `capacity = as.numeric(capacity)`.
## Caused by warning:
## ! NAs introduced by coercion

IMV	total_capacity	median_capacity
Indep. Owned and Operated	2546	151.0
Non-Independent	141286	613.0
Quasi-independent	12597	231.5

4.4.3. Geography of Occupancy

• Map of occupancies (e.g. occupant load per fishnet cell or per planning area)

4.5. Venue Age

ggplot(nash_venue_data )+
  geom_bar(aes(years_operating), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Years Operating",
    subtitle = "",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  plotTheme

ggplot(nash_venue_data )+
  geom_bar(aes(years_operating), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Years Operating",
    subtitle = "",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  facet_grid(music_space~IMV)+
  plotTheme

ggplot(nash_venue_data %>%
         filter(music_space == "Music Space"))+
  geom_bar(aes(years_operating, fill = IMV), position = "dodge", alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Years Operating",
    subtitle = "",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  plotTheme

4.6. Events Per Month

ggplot(nash_venue_data)+
  geom_bar(aes(events_per_month), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Events Per Month - All Spaces",
    subtitle = "",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  plotTheme

ggplot(nash_venue_data %>%
        filter(music_space == "Music Space"))+
  geom_bar(aes(events_per_month), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Events Per Month, Music Spaces",
    subtitle = "",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  facet_wrap(~IMV)+
  plotTheme

4.7. Artist Payment

This data isn’t any good - scrapping this

4.6. Programming

• Bar plots of programming variables (facetted by indie/non)

4.6.1. Experimentation

There is a bi-modal effect with experimentation, it’s either very experimental or not at all.

Maybe a better question is - what percentage of spaces are consider likely to offer experimental content between IMV/Non/Quasi?

Answer - roughly 40%, higher than Quasi and non-IMV

ggplot(nash_venue_data %>%
         filter(music_space == "Music Space"))+
  geom_bar(aes(experimentation), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Experimentation Likelihood - Music Spaces",
    subtitle = "Q: Compared to other venues in the city: Is this venue a platform for niche or experimental trends, sounds and art forms? Is it a place for experimental performers or extraordinary event concepts?",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  plotTheme

ggplot(nash_venue_data %>%
         filter(music_space == "Music Space"))+
  geom_bar(aes(experimentation), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Experimentation Likelihood",
    subtitle = "Q: Compared to other venues in the city: Is this venue a platform for niche or experimental trends, sounds and art forms? Is it a place for experimental performers or extraordinary event concepts?",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  facet_wrap(~IMV)+
  plotTheme

On average, IMVs are slightly more experimental

nash_venue_data %>%
  group_by(IMV, music_space) %>%
  summarize(mean_experimentation = mean(experimentation_ord, na.rm = TRUE),
            n = n()) %>%
  arrange(music_space) %>%
  kable()

## `summarise()` has grouped output by 'IMV'. You can override using the `.groups`
## argument.

IMV	music_space	mean_experimentation	n
Indep. Owned and Operated	Music Space	2.416667	24
Non-Independent	Music Space	2.100000	40
Quasi-independent	Music Space	2.102041	49
Indep. Owned and Operated	Occasional Music Space	1.785714	14
Non-Independent	Occasional Music Space	1.409091	66
Quasi-independent	Occasional Music Space	1.203390	60

nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  group_by(IMV, experimentation) %>%
  tally() %>%
  mutate(pct = 100*(n/sum(n))) %>%
  kable()

IMV	experimentation	n	pct
Indep. Owned and Operated	1.Not At All Likely	11	45.833333
Indep. Owned and Operated	Not too likely	1	4.166667
Indep. Owned and Operated	Somewhat likely	3	12.500000
Indep. Owned and Operated	Very Likely	9	37.500000
Non-Independent	1.Not At All Likely	20	50.000000
Non-Independent	Not too likely	1	2.500000
Non-Independent	Somewhat likely	14	35.000000
Non-Independent	Very Likely	5	12.500000
Quasi-independent	1.Not At All Likely	26	53.061225
Quasi-independent	Not too likely	1	2.040816
Quasi-independent	Somewhat likely	13	26.530612
Quasi-independent	Very Likely	9	18.367347

4.6.2. Music as Main Purpose

ggplot(nash_venue_data)+
  geom_bar(aes(purpose), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Main Purpose",
    subtitle = "Q: Is the music program the main purpose why people attend this venue, and not e.g. food, drink, products?",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  plotTheme

ggplot(nash_venue_data)+
  geom_bar(aes(purpose), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Main Purpose",
    subtitle = "Q: Is the music program the main purpose why people attend this venue, and not e.g. food, drink, products?",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  facet_wrap(~IMV)+
  plotTheme

4.6.3. Interdisciplinarity

ggplot(nash_venue_data %>%
         filter(music_space == "Music Space"))+
  geom_bar(aes(interdisciplinarity), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Interdisciplinarity - Music Spaces",
    subtitle = "Q: Does the venue offer events for non-music presentations, such visual art, performing art, panel discussions or film screenings?",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  facet_wrap(~IMV)+
  plotTheme

nash_venue_data %>%
  group_by(IMV, music_space) %>%
  summarize(mean_interdisciplinarity = mean(interdisciplinarity_ord, na.rm = TRUE),
            n = n()) %>%
  arrange(music_space) %>%
  kable()

## `summarise()` has grouped output by 'IMV'. You can override using the `.groups`
## argument.

IMV	music_space	mean_interdisciplinarity	n
Indep. Owned and Operated	Music Space	1.875000	24
Non-Independent	Music Space	2.425000	40
Quasi-independent	Music Space	1.857143	49
Indep. Owned and Operated	Occasional Music Space	2.076923	14
Non-Independent	Occasional Music Space	1.606061	66
Quasi-independent	Occasional Music Space	1.169491	60

4.6.4. Community Focus

ggplot(nash_venue_data %>%
         filter(music_space == "Music Space"))+
  geom_bar(aes(community_focus), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Community Focus - Music Spaces",
    subtitle = "Q: Is the venue likely to be any of the following... a consistent platform for a niche genre, a space for underrepresented communities or music scenes, a neighbourhood community hub, and not e.g. walk in tourists?",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  plotTheme

ggplot(nash_venue_data %>%
         filter(music_space == "Music Space"))+
  geom_bar(aes(community_focus), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Community Focus - Music Spaces",
    subtitle = "Q: Is the venue likely to be any of the following... a consistent platform for a niche genre, a space for underrepresented communities or music scenes, a neighbourhood community hub, and not e.g. walk in tourists?",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  facet_wrap(~IMV)+
  plotTheme

Indie venues ARE more local

nash_venue_data %>%
  group_by(IMV, music_space) %>%
  summarize(mean_community_focus = mean(community_focus_ord, na.rm = TRUE),
            n = n()) %>%
  arrange(music_space) %>%
  kable()

## `summarise()` has grouped output by 'IMV'. You can override using the `.groups`
## argument.

IMV	music_space	mean_community_focus	n
Indep. Owned and Operated	Music Space	3.041667	24
Non-Independent	Music Space	2.625000	40
Quasi-independent	Music Space	2.734694	49
Indep. Owned and Operated	Occasional Music Space	2.357143	14
Non-Independent	Occasional Music Space	1.590909	66
Quasi-independent	Occasional Music Space	1.689655	60

nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  group_by(IMV, community_focus) %>%
  tally() %>%
  mutate(pct = 100*(n/sum(n))) %>%
  kable()

IMV	community_focus	n	pct
Indep. Owned and Operated	1.Not At All Likely	2	8.333333
Indep. Owned and Operated	Not too likely	4	16.666667
Indep. Owned and Operated	Somewhat likely	9	37.500000
Indep. Owned and Operated	Very Likely	9	37.500000
Non-Independent	1.Not At All Likely	6	15.000000
Non-Independent	Not too likely	9	22.500000
Non-Independent	Somewhat likely	19	47.500000
Non-Independent	Very Likely	6	15.000000
Quasi-independent	1.Not At All Likely	9	18.367347
Quasi-independent	Not too likely	6	12.244898
Quasi-independent	Somewhat likely	23	46.938775
Quasi-independent	Very Likely	11	22.448980

nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  mutate(likely_community_focus = ifelse(str_detect(community_focus, "Somewhat") |
                                           str_detect(community_focus, "Very"),
                                         "Somewhat or Very Likely Community Focus",
                                         "Not At All or Not too Likely")) %>%
  group_by(IMV, likely_community_focus) %>%
  tally() %>%
  mutate(pct = 100*(n/sum(n))) %>%
  kable()

IMV	likely_community_focus	n	pct
Indep. Owned and Operated	Not At All or Not too Likely	6	25.00000
Indep. Owned and Operated	Somewhat or Very Likely Community Focus	18	75.00000
Non-Independent	Not At All or Not too Likely	15	37.50000
Non-Independent	Somewhat or Very Likely Community Focus	25	62.50000
Quasi-independent	Not At All or Not too Likely	15	30.61224
Quasi-independent	Somewhat or Very Likely Community Focus	34	69.38776

4.6.5. Promoting Events

ggplot(nash_venue_data %>%
         filter(music_space == "Music Space"))+
  geom_bar(aes(event_promotion), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Promoting Artistic Content - Music Spaces",
    subtitle = "Q: Is the promotion and marketing of this space focused on artistic content (artists, lineups, performances)?",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  plotTheme

ggplot(nash_venue_data %>%
         filter(music_space == "Music Space"))+
  geom_bar(aes(event_promotion), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Promoting Artistic Content - Music Spaces",
    subtitle = "Q: Is the promotion and marketing of this space focused on artistic content (artists, lineups, performances)?",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  facet_wrap(~IMV)+
  plotTheme

ggplot(nash_venue_data)+
  geom_bar(aes(event_promotion), fill = CityPalette[6], alpha = 0.6, size = 3)+
  #scale_fill_viridis_d()+
  labs(
    title = "Promoting Artistic Content",
    subtitle = "Q: Is the promotion and marketing of this space focused on artistic content (artists, lineups, performances)?",
    x="",
    y="Total Venues",
    caption = "Data: PennPraxis")+
  facet_grid(music_space~IMV)+
  plotTheme

nash_venue_data %>%
  group_by(IMV, music_space) %>%
  summarize(mean_event_promotion = mean(event_promotion_ord, na.rm = TRUE),
            n = n()) %>%
  arrange(music_space) %>%
  kable()

## `summarise()` has grouped output by 'IMV'. You can override using the `.groups`
## argument.

IMV	music_space	mean_event_promotion	n
Indep. Owned and Operated	Music Space	3.416667	24
Non-Independent	Music Space	3.375000	40
Quasi-independent	Music Space	3.244898	49
Indep. Owned and Operated	Occasional Music Space	2.285714	14
Non-Independent	Occasional Music Space	1.738462	66
Quasi-independent	Occasional Music Space	1.661017	60

4.7. CFP Comparisons

4.7.1. Venue Count

main_venue_data %>%
  group_by(city) %>%
  tally() %>%
  filter(city != "") %>%
  rbind(., nash_venue_data %>%
          mutate(city = "Nashville") %>%
          group_by(city) %>%
          tally) %>%
  kable() %>%
  kable_styling()

city	n
Berlin	496
Montreal	271
New York	495
Stockholm	102
Sydney	241
Tokyo	581
Nashville	253

4.7.2. Venue Density by City and Area

Note - Sydney’s population represents only 2 of the 33 Local Government Areas in the metro region - City of Sydney and Inner West Council.

d1_aggregates %>%
  as.data.frame() %>%
  filter(city != "Sydney") %>%
  group_by(city) %>%
  summarize(total_pop = sum(pop_t2),
            total_venues = sum(venue_count, na.rm = TRUE),
            area_sqkm = sum(area_km2)) %>%
  rbind(.,
        d2_aggregates %>%
  as.data.frame() %>%
  filter(city == "Sydney") %>%
  group_by(city) %>%
  summarize(total_pop = sum(pop_t2),
            total_venues = sum(venue_count, na.rm = TRUE),
            area_sqkm = sum(area_km2))) %>%
  rbind(., d1_aggregates_nash %>%
          st_transform(2274) %>%
          mutate(city = "Nashville") %>%
          mutate(area_sqkm = st_area(.)* 0.0000000929) %>%
          as.data.frame() %>%
          summarize(total_pop = sum(tot_pop20),
                    total_venues = sum(venue_count, na.rm = TRUE),
                    area_sqkm = sum(area_sqkm)) %>%
          mutate(city = "Nashville")) %>%
  mutate(total_venues = ifelse(city == "Nashville", 253, total_venues)) %>%
  mutate(venues_per_10k = total_venues / (total_pop/10000),
         venue_sqkm = total_venues / area_sqkm)

## # A tibble: 7 × 6
##   city      total_pop total_venues area_sqkm venues_per_10k venue_sqkm
##   <chr>         <dbl>        <dbl>     <dbl>          <dbl>      <dbl>
## 1 Berlin      3517424          495     888.           1.41       0.558
## 2 Montreal    2004265          265     617.           1.32       0.430
## 3 New York    8426743          493    1212.           0.585      0.407
## 4 Stockholm    975551           96     215.           0.984      0.447
## 5 東京都      9272740          581     657.           0.627      0.885
## 6 Sydney       394178          240      70.4          6.09       3.41 
## 7 Nashville    690540          253    1360.           3.66       0.186

d1_aggregates %>%
  as.data.frame() %>%
  filter(city != "Sydney" & 
           city != "New York") %>%
  select(city, d1_name, venue_count) %>%
  rbind(.,
        d2_aggregates %>%
  as.data.frame() %>%
  filter(city %in% c("Sydney", "New York")) %>%
  select(city, venue_count, d2_name) %>%
    rename(d1_name = d2_name)) %>%
  rbind(., d1_aggregates_nash %>%
          as.data.frame() %>%
          select(venue_count, d1_name) %>%
          mutate(city = "Nashville")) %>%
  arrange(-venue_count) %>%
  kable() %>%
  kable_styling()

city	d1_name	venue_count
Berlin	Friedrichshain-Kreuzberg	172
東京都	渋谷区	167
Montreal	Ville-Marie	122
Berlin	Mitte	120
Nashville	Downtown	107
東京都	新宿区	87
東京都	港区	79
Montreal	Le Plateau-Mont-Royal	78
Sydney	Sydney - Haymarket - The Rocks	68
東京都	世田谷区	64
Berlin	Neukölln	59
Berlin	Pankow	54
New York	Midtown-Midtown South	54
東京都	杉並区	46
Nashville	East Nashville	39
Nashville	Green Hills - Midtown	39
New York	West Village	35
Stockholm	Södermalm	33
New York	North Side-South Side	32
New York	Chinatown	31
東京都	豊島区	27
Berlin	Tempelhof-Schöneberg	27
New York	Hudson Yards-Chelsea-Flat Iron-Union Square	27
Sydney	Darlinghurst	27
Stockholm	Norrmalm	26
New York	Bushwick South	26
Sydney	Newtown - Camperdown - Darlington	25
Montreal	Le Sud-Ouest	23
Berlin	Charlottenburg-Wilmersdorf	21
Stockholm	Östermalm	21
New York	Clinton	20
Nashville	Donelson - Hermitage - Old Hickory	19
Berlin	Treptow-Köpenick	18
New York	Bushwick North	18
New York	East Village	18
Sydney	Potts Point - Woolloomooloo	18
東京都	中央区	17
Nashville	North Nashville	16
東京都	千代田区	15
Sydney	Redfern - Chippendale	15
Sydney	Surry Hills	15
New York	East Williamsburg	14
東京都	台東区	13
Montreal	Rosemont-La Petite-Patrie	13
Stockholm	Enskede-Årsta-Vantör	12
New York	Park Slope-Gowanus	12
New York	SoHo-TriBeCa-Civic Center-Little Italy	12
東京都	中野区	11
New York	Greenpoint	11
New York	Central Harlem South	10
Sydney	Marrickville	10
Nashville	South Nashville	10
東京都	目黒区	9
Berlin	Lichtenberg	9
Montreal	Mercier-Hochelaga-Maisonneuve	9
New York	Ridgewood	9
Sydney	Paddington - Moore Park	9
東京都	品川区	8
Montreal	Villeray-Saint-Michel-Parc-Extension	8
New York	Lower East Side	8
Sydney	Erskineville - Alexandria	8
Nashville	Southeast	8
東京都	文京区	7
東京都	江東区	7
New York	Stuyvesant Heights	7
New York	Upper East Side-Carnegie Hill	7
Sydney	Petersham - Stanmore	7
Sydney	Pyrmont - Ultimo	7
東京都	練馬区	6
Berlin	Spandau	6
Berlin	Marzahn-Hellersdorf	6
Montreal	Côte-des-Neiges-Notre-Dame-de-Grâce	6
New York	Bedford	6
New York	Mott Haven-Port Morris	6
New York	Lincoln Square	6
Sydney	Glebe - Forest Lodge	6
Sydney	Leichhardt - Annandale	6
Sydney	Lilyfield - Rozelle	6
東京都	墨田区	5
東京都	大田区	5
New York	Sunset Park West	5
New York	Crown Heights North	5
New York	Turtle Bay-East Midtown	5
New York	Gramercy	5
東京都	江戸川区	4
New York	Brooklyn Heights-Cobble Hill	4
New York	Carroll Gardens-Columbia Street-Red Hook	4
New York	Hunts Point	4
New York	Schuylerville-Throgs Neck-Edgewater Park	4
New York	Marble Hill-Inwood	4
New York	Central Harlem North-Polo Grounds	4
New York	Upper West Side	4
Sydney	Balmain	4
Nashville	Antioch - Priest Lake	4
Nashville	Madison	4
Nashville	West Nashville	4
東京都	北区	3
Berlin	Reinickendorf	3
Stockholm	Hägersten-Älvsjö	3
Montreal	Outremont	3
New York	DUMBO-Vinegar Hill-Downtown Brooklyn-Boerum Hill	3
New York	Prospect Heights	3
New York	Fort Greene	3
New York	Clinton Hill	3
New York	Erasmus	3
New York	Co-op City	3
New York	Spuyten Duyvil-Kingsbridge	3
New York	Manhattanville	3
New York	Morningside Heights	3
Sydney	Ashfield	3
Nashville	Bellevue	3
New York	Seagate-Coney Island	2
New York	Prospect Lefferts Gardens-Wingate	2
New York	East Flatbush-Farragut	2
New York	Parkchester	2
New York	Murray Hill-Kips Bay	2
New York	Washington Heights North	2
New York	Hunters Point-Sunnyside-West Maspeth	2
New York	New Springville-Bloomfield-Travis	2
New York	West New Brighton-New Brighton-St. George	2
Sydney	Sydenham - Tempe - St Peters	2
Sydney	Waterloo - Beaconsfield	2
Sydney	Dulwich Hill - Lewisham	2
東京都	足立区	1
Stockholm	Skärholmen	1
Montreal	Lachine	1
Montreal	Ahuntsic-Cartierville	1
Montreal	Saint-Léonard	1
New York	Sheepshead Bay-Gerritsen Beach-Manhattan Beach	1
New York	Bensonhurst East	1
New York	Flatbush	1
New York	Crown Heights South	1
New York	Brownsville	1
New York	East Concourse-Concourse Village	1
New York	North Riverdale-Fieldston-Riverdale	1
New York	Highbridge	1
New York	Van Cortlandt Village	1
New York	Allerton-Pelham Gardens	1
New York	Westchester-Unionport	1
New York	Woodlawn-Wakefield	1
New York	West Concourse	1
New York	Crotona Park East	1
New York	park-cemetery-etc-Bronx	1
New York	Battery Park City-Lower Manhattan	1
New York	East Harlem South	1
New York	Washington Heights South	1
New York	Stuyvesant Town-Cooper Village	1
New York	South Jamaica	1
New York	College Point	1
New York	Maspeth	1
New York	Kew Gardens Hills	1
New York	Elmhurst-Maspeth	1
New York	Richmond Hill	1
New York	Jamaica	1
New York	Woodside	1
New York	Queensbridge-Ravenswood-Long Island City	1
New York	Astoria	1
New York	Steinway	1
New York	New Brighton-Silver Lake	1
Nashville	Bordeaux - Whites Creek - Haynes Trinity	1
Nashville	Joelton	1
Nashville	Parkwood - Union Hill	1
東京都	荒川区	NA
東京都	板橋区	NA
東京都	葛飾区	NA
Berlin	Steglitz-Zehlendorf	NA
Stockholm	Kungsholmen	NA
Stockholm	Farsta	NA
Stockholm	Bromma	NA
Stockholm	Hässelby-Vällingby	NA
Stockholm	Skarpnäck	NA
Stockholm	Spånga-Tensta	NA
Stockholm	Rinkeby-Kista	NA
Montreal	LaSalle	NA
Montreal	Mont-Royal	NA
Montreal	Hampstead	NA
Montreal	Rivière-des-Prairies-Pointe-aux-Trembles	NA
Montreal	Dorval	NA
Montreal	Montréal-Nord	NA
Montreal	L’Île-Bizard-Sainte-Geneviève	NA
Montreal	Kirkland	NA
Montreal	Dollard-des-Ormeaux	NA
Montreal	Senneville	NA
Montreal	Côte-Saint-Luc	NA
Montreal	Montréal-Ouest	NA
Montreal	Pointe-Claire	NA
Montreal	L’Île-Dorval	NA
Montreal	Saint-Laurent	NA
Montreal	Beaconsfield	NA
Montreal	Westmount	NA
Montreal	Montréal-Est	NA
Montreal	Anjou	NA
Montreal	Pierrefonds-Roxboro	NA
Montreal	Sainte-Anne-de-Bellevue	NA
Montreal	Verdun	NA
Montreal	Baie-d’Urfé	NA
New York	Brighton Beach	NA
New York	West Brighton	NA
New York	Homecrest	NA
New York	Gravesend	NA
New York	Bath Beach	NA
New York	Bensonhurst West	NA
New York	Dyker Heights	NA
New York	Bay Ridge	NA
New York	Sunset Park East	NA
New York	Windsor Terrace	NA
New York	Kensington-Ocean Parkway	NA
New York	Midwood	NA
New York	Madison	NA
New York	Georgetown-Marine Park-Bergen Beach-Mill Basin	NA
New York	Ocean Parkway South	NA
New York	Canarsie	NA
New York	Flatlands	NA
New York	Williamsburg	NA
New York	Ocean Hill	NA
New York	East New York	NA
New York	Cypress Hills-City Line	NA
New York	East New York (Pennsylvania Ave)	NA
New York	Borough Park	NA
New York	Starrett City	NA
New York	Rugby-Remsen Village	NA
New York	park-cemetery-etc-Brooklyn	NA
New York	Claremont-Bathgate	NA
New York	Eastchester-Edenwald-Baychester	NA
New York	Bedford Park-Fordham North	NA
New York	Belmont	NA
New York	Bronxdale	NA
New York	West Farms-Bronx River	NA
New York	Soundview-Castle Hill-Clason Point-Harding Park	NA
New York	Pelham Bay-Country Club-City Island	NA
New York	East Tremont	NA
New York	Kingsbridge Heights	NA
New York	Longwood	NA
New York	Melrose South-Mott Haven North	NA
New York	Morrisania-Melrose	NA
New York	University Heights-Morris Heights	NA
New York	Van Nest-Morris Park-Westchester Square	NA
New York	Fordham South	NA
New York	Mount Hope	NA
New York	Norwood	NA
New York	Williamsbridge-Olinville	NA
New York	Pelham Parkway	NA
New York	Soundview-Bruckner	NA
New York	Rikers Island	NA
New York	Hamilton Heights	NA
New York	Lenox Hill-Roosevelt Island	NA
New York	Yorkville	NA
New York	East Harlem North	NA
New York	park-cemetery-etc-Manhattan	NA
New York	Springfield Gardens North	NA
New York	Springfield Gardens South-Brookville	NA
New York	Rosedale	NA
New York	Jamaica Estates-Holliswood	NA
New York	Hollis	NA
New York	St. Albans	NA
New York	Breezy Point-Belle Harbor-Rockaway Park-Broad Channel	NA
New York	Hammels-Arverne-Edgemere	NA
New York	Far Rockaway-Bayswater	NA
New York	Forest Hills	NA
New York	Rego Park	NA
New York	Glendale	NA
New York	Middle Village	NA
New York	Flushing	NA
New York	Corona	NA
New York	North Corona	NA
New York	East Elmhurst	NA
New York	Jackson Heights	NA
New York	Elmhurst	NA
New York	Cambria Heights	NA
New York	Queens Village	NA
New York	Briarwood-Jamaica Hills	NA
New York	Pomonok-Flushing Heights-Hillcrest	NA
New York	Fresh Meadows-Utopia	NA
New York	Oakland Gardens	NA
New York	Bellerose	NA
New York	Glen Oaks-Floral Park-New Hyde Park	NA
New York	Douglas Manor-Douglaston-Little Neck	NA
New York	Bayside-Bayside Hills	NA
New York	Ft. Totten-Bay Terrace-Clearview	NA
New York	Auburndale	NA
New York	Whitestone	NA
New York	Murray Hill	NA
New York	East Flushing	NA
New York	Woodhaven	NA
New York	South Ozone Park	NA
New York	Ozone Park	NA
New York	Lindenwood-Howard Beach	NA
New York	Kew Gardens	NA
New York	Queensboro Hill	NA
New York	Laurelton	NA
New York	Old Astoria	NA
New York	Baisley Park	NA
New York	Airport	NA
New York	park-cemetery-etc-Queens	NA
New York	Annadale-Huguenot-Prince’s Bay-Eltingville	NA
New York	Westerleigh	NA
New York	Grymes Hill-Clifton-Fox Hills	NA
New York	Charleston-Richmond Valley-Tottenville	NA
New York	Mariner’s Harbor-Arlington-Port Ivory-Graniteville	NA
New York	Grasmere-Arrochar-Ft. Wadsworth	NA
New York	Todt Hill-Emerson Hill-Heartland Village-Lighthouse Hill	NA
New York	Oakwood-Oakwood Beach	NA
New York	Port Richmond	NA
New York	Rossville-Woodrow	NA
New York	Old Town-Dongan Hills-South Beach	NA
New York	Stapleton-Rosebank	NA
New York	New Dorp-Midland Beach	NA
New York	Arden Heights	NA
New York	Great Kills	NA
New York	park-cemetery-etc-Staten Island	NA
Sydney	Burwood - Croydon	NA
Sydney	Croydon Park - Enfield	NA
Sydney	Haberfield - Summer Hill	NA

4.7.3. Programming Comparison

main_venue_data %>%
  select(city, promotion, community_focus, experimentation) %>%
  rbind(., nash_venue_data %>%
          mutate(city = "Nashville") %>%
          rename(promotion = event_promotion) %>%
          select(city, promotion, community_focus, experimentation)) %>%
  gather(-city, value = "value", key = "variable") %>%
  mutate(value = case_when(str_detect(value, "1") == TRUE ~ "1. Not At All Likely",
                           str_detect(value, "2") == TRUE ~ "2. Not Too Likely",
                           str_detect(value, "3") == TRUE ~ "3. Somewhat Likely",
                           str_detect(value, "4") == TRUE ~ "4. Very Likely")) %>%
  filter(is.na(value) == FALSE,
         city != "") %>%
  ggplot()+
  geom_bar(aes(value))+
  facet_grid(city~variable, scales = "free")+
  plotTheme

main_venue_data %>%
  select(city, promotion, community_focus, experimentation) %>%
  rbind(., nash_venue_data %>%
          mutate(city = "Nashville") %>%
          rename(promotion = event_promotion) %>%
          select(city, promotion, community_focus, experimentation)) %>%
  gather(-city, value = "value", key = "variable") %>%
  mutate(value = case_when(str_detect(value, "1") == TRUE ~ 1,
                           str_detect(value, "2") == TRUE ~ 2,
                           str_detect(value, "3") == TRUE ~ 3,
                           str_detect(value, "4") == TRUE ~ 4)) %>%
  filter(is.na(value) == FALSE,
         city != "") %>%
  group_by(city, variable) %>%
  summarize(mean_score = mean(value)) %>%
  ggplot()+
  geom_bar(aes(y = mean_score, x = variable, fill = city), stat = "identity", position = "dodge")+
  plotTheme

## `summarise()` has grouped output by 'city'. You can override using the
## `.groups` argument.

5. Venues and The City

• Venue zoning districts (bar plot)

• Median sqft cost by neighborhood

• IMVs with the highest sq ft cost

5.1. Venues and real estate costs

nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  mutate(value_sqft = TotlAppr/Area_sqft) %>%
  filter(value_sqft < 1000) %>%
  ggplot()+
  geom_histogram(aes(value_sqft), binwidth = 50) +
  facet_wrap(~IMV)+
  plotTheme

nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  mutate(value_sqft = TotlAppr/Area_sqft) %>%
  group_by(IMV) %>%
  summarize(median_sqft = median(value_sqft))

## # A tibble: 3 × 2
##   IMV                       median_sqft
##   <chr>                           <dbl>
## 1 Indep. Owned and Operated        119.
## 2 Non-Independent                  350.
## 3 Quasi-independent                178.

nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  mutate(value_sqft = TotlAppr/Area_sqft) %>%
  group_by(experimentation) %>%
  summarize(median_value_sqft = median(value_sqft, na.rm = TRUE)) %>%
  ggplot()+
  geom_bar(aes(x = experimentation, y = median_value_sqft), stat = "identity")+
  plotTheme

nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  mutate(value_sqft = TotlAppr/Area_sqft) %>%
  group_by(community_focus) %>%
  summarize(median_value_sqft = median(value_sqft, na.rm = TRUE)) %>%
  ggplot()+
  geom_bar(aes(x = community_focus, y = median_value_sqft), stat = "identity")+
  plotTheme

nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  mutate(value_sqft = TotlAppr/Area_sqft) %>%
  group_by(interdisciplinarity) %>%
  summarize(median_value_sqft = median(value_sqft, na.rm = TRUE)) %>%
  ggplot()+
  geom_bar(aes(x = interdisciplinarity, y = median_value_sqft), stat = "identity")+
  plotTheme

Seems like IMVs and non-IMVs program similarly in practice vis-a-vis these measures (excluding interdisciplinarity)… ON AVERAGE

What about the exceptional examples??

No - it’s basically the same!

nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  mutate(programming_sum = experimentation_ord +
           community_focus_ord + event_promotion_ord) %>%
  ggplot()+
  geom_histogram(aes(programming_sum), binwidth = 2)+
  facet_wrap(~IMV)+
  plotTheme

nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  mutate(programming_sum = experimentation_ord +
           community_focus_ord + event_promotion_ord) %>%
  group_by(IMV) %>%
  summarize(mean_programming_sum = mean(programming_sum, na.rm = TRUE),
            median_programming_sum = median(programming_sum, na.rm = TRUE))

## # A tibble: 3 × 3
##   IMV                       mean_programming_sum median_programming_sum
##   <chr>                                    <dbl>                  <dbl>
## 1 Indep. Owned and Operated                 8.88                      9
## 2 Non-Independent                           8.1                       8
## 3 Quasi-independent                         8.08                      8

MF - what are these indies with the super high sq footage values? These are in big mixed use buildings I believe.

Hard to put much into this negative relationship with the outliers.

nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  mutate(programming_sum = experimentation_ord +
           community_focus_ord + event_promotion_ord) %>%
  mutate(value_sqft = TotlAppr/Area_sqft) %>%
  filter(value_sqft < 750) %>%
  ggplot()+
  geom_point(aes(y = programming_sum, x = value_sqft, color = IMV))+
  geom_smooth(aes(y = programming_sum, x = value_sqft), method = "lm", se = FALSE)+
  plotTheme

## `geom_smooth()` using formula = 'y ~ x'

nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  mutate(programming_sum = interdisciplinarity_ord + experimentation_ord +
           community_focus_ord + event_promotion_ord) %>%
  mutate(value_sqft = TotlAppr/Area_sqft) %>%
  filter(value_sqft < 750) %>%
  ggplot()+
  geom_point(aes(y = programming_sum, x = value_sqft))+
  geom_smooth(aes(y = programming_sum, x = value_sqft), method = "lm", se = FALSE)+
  facet_wrap(~IMV)+
  plotTheme

## `geom_smooth()` using formula = 'y ~ x'

5.2. Building Age

nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  ggplot()+
  geom_histogram(aes(YearBuilt), binwidth = 10)+
  facet_wrap(~IMV)+
  plotTheme

## Warning: Removed 14 rows containing non-finite values (`stat_bin()`).

5.3. Building Condition

5.4. Venues by planning area / neighborhood

All music spaces

ggplot()+
  geom_sf(data = d1_aggregates_nash, fill = 'transparent', 
          color = 'grey')+
  geom_sf(data = d1_aggregates_nash %>%
            filter(is.na(num_music_smaces) == FALSE),
          aes(fill = num_music_smaces),
          color = 'grey', alpha = 0.6)+
  scale_fill_viridis('Music Spaces', direction = -1, alpha = 0.8)+
  geom_text(data = d1_aggregates_nash %>%
              filter(venue_count != 0) %>%
              mutate(lon=map_dbl(geometry, ~st_centroid(.x)[[1]]),
                     lat=map_dbl(geometry, ~st_centroid(.x)[[2]])),
            aes(x = lon, y = lat, label = d1_name),
            color = "black", size = 3)+
  mapTheme

ggplot()+
  geom_sf(data = d1_aggregates_nash, fill = 'transparent', 
          color = 'grey')+
  geom_sf(data = d1_aggregates_nash %>%
            filter(is.na(IMV_n) == FALSE),
          aes(fill = IMV_n),
          color = 'grey', alpha = 0.6)+
  scale_fill_viridis('IMVs', direction = -1, alpha = 0.8)+
  geom_text(data = d1_aggregates_nash %>%
              filter(venue_count != 0) %>%
              mutate(lon=map_dbl(geometry, ~st_centroid(.x)[[1]]),
                     lat=map_dbl(geometry, ~st_centroid(.x)[[2]])),
            aes(x = lon, y = lat, label = d1_name),
            color = "black", size = 3)+
  mapTheme

ggplot()+
  geom_sf(data = d1_aggregates_nash, fill = 'transparent', 
          color = 'grey')+
  geom_sf(data = d1_aggregates_nash %>%
            filter(is.na(Quasi_IMV_n) == FALSE),
          aes(fill = Quasi_IMV_n),
          color = 'grey', alpha = 0.6)+
  scale_fill_viridis('Quasi IMVs', direction = -1, alpha = 0.8)+
  geom_text(data = d1_aggregates_nash %>%
              filter(venue_count != 0) %>%
              mutate(lon=map_dbl(geometry, ~st_centroid(.x)[[1]]),
                     lat=map_dbl(geometry, ~st_centroid(.x)[[2]])),
            aes(x = lon, y = lat, label = d1_name),
            color = "black", size = 3)+
  mapTheme

ggplot()+
  geom_sf(data = d1_aggregates_nash, fill = 'transparent', 
          color = 'grey')+
  geom_sf(data = d1_aggregates_nash %>%
            filter(is.na(experimentation) == FALSE),
          aes(fill = experimentation),
          color = 'grey', alpha = 0.6)+
  scale_fill_viridis('Mean Experimental\nContent Score', direction = -1)+
  geom_text(data = d1_aggregates_nash %>%
              filter(venue_count != 0) %>%
              mutate(lon=map_dbl(geometry, ~st_centroid(.x)[[1]]),
                     lat=map_dbl(geometry, ~st_centroid(.x)[[2]])),
            aes(x = lon, y = lat, label = d1_name),
            color = "black", size = 3)+
  mapTheme

ggplot()+
  geom_sf(data = d1_aggregates_nash, fill = 'transparent', 
          color = 'grey')+
  geom_sf(data = d1_aggregates_nash %>%
            filter(is.na(community_focus) == FALSE),
          aes(fill = community_focus),
          color = 'grey', alpha = 0.6)+
  scale_fill_viridis('Mean Community\nFocus Score', direction = -1)+
  geom_text(data = d1_aggregates_nash %>%
              filter(venue_count != 0) %>%
              mutate(lon=map_dbl(geometry, ~st_centroid(.x)[[1]]),
                     lat=map_dbl(geometry, ~st_centroid(.x)[[2]])),
            aes(x = lon, y = lat, label = d1_name),
            color = "black", size = 3)+
  mapTheme

ggplot(data = d1_aggregates_nash %>%
         filter(is.na(experimentation) == FALSE) %>%
         as.data.frame() %>%
         mutate(venue_text = str_c(as.character(venue_count), " venues")) %>%
         select(venue_text, venue_count, experimentation, d1_name) %>%
         arrange(-experimentation) %>%
         top_n(10))+
  geom_bar(aes(x = reorder(toupper(d1_name), experimentation), 
               y= experimentation),
           stat = "identity", fill = CityPalette[6], width = 0.3,
           alpha = 0.8)+
  geom_text(aes(label = toupper(venue_text), x = toupper(d1_name), 
                y= experimentation / 2), alpha = 0.6, size = 4 )+
  labs(
    title = "DISTRICTS WITH HIGHEST EXPERIMENTAL CONTENT SCORES",
    #subtitle = "Labels indicate total number of districts in that ward",
    caption = "Data: PennPraxis")+
  ylab("MEAN EXPERIMENTAL CONTENT SCORE (SCALE OF 1-4)")+
  xlab("")+
  coord_flip()+
  plotTheme

## Selecting by d1_name

ggplot(data = d1_aggregates_nash %>%
         filter(is.na(community_focus) == FALSE) %>%
         as.data.frame() %>%
         mutate(venue_text = str_c(as.character(venue_count), " venues")) %>%
         select(venue_text, venue_count, community_focus, d1_name) %>%
         arrange(-community_focus) %>%
         top_n(10))+
  geom_bar(aes(x = reorder(toupper(d1_name), community_focus), 
               y= community_focus),
           stat = "identity", fill = CityPalette[6], width = 0.3,
           alpha = 0.8)+
  geom_text(aes(label = toupper(venue_text), x = toupper(d1_name), 
                y= community_focus / 2), alpha = 0.6, size = 4 )+
  labs(
    title = "DISTRICTS WITH HIGHEST COMMUNITY SCORES",
    #subtitle = "Labels indicate total number of districts in that ward",
    caption = "Data: PennPraxis")+
  ylab("MEAN COMMUNITY PROGRAM SCORE (SCALE OF 1-4)")+
  xlab("")+
  coord_flip()+
  plotTheme

## Selecting by d1_name

Venues and Urban Variables by District -

This is not particularly useful compared to the point pattern analysis.

d1_aggregates_nash %>%
  as.data.frame() %>%
  select(d1_name, density_venues, IMV_n, avg_med_rent20, avg_dens20, perc_chg_dens, perc_chg_med_rent) %>%
  gather(-d1_name, -density_venues, key = "variable", value = "value") %>%
  ggplot()+
  geom_point(aes(x = value, y = density_venues)) +
  facet_wrap(~variable, scales = "free")+
  plotTheme

d1_aggregates_nash %>%
  as.data.frame() %>%
  select(d1_name, interdisciplinarity, event_promotion, community_focus, experimentation, avg_med_rent20, avg_dens20, perc_chg_dens, perc_chg_med_rent) %>%
  gather(-d1_name, -interdisciplinarity, -event_promotion, -community_focus, -experimentation, key = "variable", value = "value") %>%
  ggplot()+
  geom_point(aes(x = value, y = experimentation)) +
  geom_line(stat = "smooth", method='lm', 
            aes(y = experimentation, x = value), 
            se = FALSE, 
            linetype = "dashed", alpha = 0.5)+
  facet_wrap(~variable, scales = "free")+
  plotTheme

## `geom_smooth()` using formula = 'y ~ x'

## Warning: Removed 12 rows containing non-finite values (`stat_smooth()`).

## Warning: Removed 12 rows containing missing values (`geom_point()`).

5.5. Venues, Programming and Centrality

What is the geometric center of venue activity in Nashville?

nash_venue_data %>%
  summarize(centroid_x = mean(x),
            centroid_y = mean(y)) %>%
  ggplot()+
  geom_sf(data = d1_aggregates_nash, fill = "transparent") +
  geom_point(aes(x = centroid_x, y = centroid_y))+
  mapTheme

IMVs are located, on average, 2.6 miles from the geographic center of the Nashville venue cluster, while non-IMVs are located, on average, 1.8 miles.

centroid_point <- nash_venue_data %>%
  summarize(centroid_x = mean(x),
            centroid_y = mean(y)) %>%
  st_as_sf(coords = c("centroid_x", "centroid_y"), crs = 4326) %>%
  st_transform(2274)

Distance summary statistics of venue types from center of cluster (Music Spaces only)

nash_venue_data %>%
  st_as_sf(crs = 4326) %>%
  st_transform(2274) %>%
  mutate(centroid_dist = st_distance(., centroid_point)) %>%
  filter(music_space == "Music Space") %>%
  as.data.frame() %>%
  group_by(IMV) %>%
  summarize(mean_dist = mean(centroid_dist) / 5280,
            median = median(centroid_dist) / 5280)

## # A tibble: 3 × 3
##   IMV                              mean_dist           median
##   <chr>                     [US_survey_foot] [US_survey_foot]
## 1 Indep. Owned and Operated             2.51            1.71 
## 2 Non-Independent                       1.83            0.805
## 3 Quasi-independent                     2.18            1.35

nash_venue_data %>%
  st_as_sf(crs = 4326) %>%
  st_transform(2274) %>%
  mutate(centroid_dist = as.numeric(st_distance(., centroid_point))/5280) %>%
  filter(music_space == "Music Space") %>%
  as.data.frame() %>%
  ggplot()+
  geom_density(aes(centroid_dist, color = IMV))+
  plotTheme

## 5.6. Venues and Geographic Clustering

k-means clustering analysis

This first test is a “k-means” cluster analysis that is strictly looking for geographic clusters - this analysis functions by partitioning a cloud of points in multi-dimensional data to find cluster centroids, and assign each point to a cluster by minimizing within cluster variance.

This is ONLY for music spaces.

This doesn’t really produce anything that’s much different than the planning areas.

set.seed(123)

# function to compute total within-cluster sum of square 
wss <- function(k) {
  kmeans(nash_venue_data %>% 
           filter(music_space == "Music Space", 
                  is.na(y) == FALSE) %>% 
           select(x, y), k, nstart = 10 )$tot.withinss
}

# Compute and plot wss for k = 1 to k = 15
k.values <- 1:15

# extract wss for 2-15 clusters
wss_values <- map_dbl(k.values, wss)

# Run "elbow plot" to determine optimal cluster number.
plot(k.values, wss_values,
       type="b", pch = 19, frame = FALSE, 
       xlab="Number of clusters K",
       ylab="Total within-clusters sum of squares")

# Create a data object with cluster numbers
test <- kmeans(nash_venue_data %>% 
           filter(music_space == "Music Space", 
                  is.na(y) == FALSE) %>% 
            select(x, y), centers = 8, nstart = 25)

This interactive map shows the location of these clusters:

cluster_data1 <-nash_venue_data %>% 
           filter(music_space == "Music Space", 
                  is.na(y) == FALSE)  %>% 
  cbind(test$cluster) %>% 
  rename(cluster = 'test$cluster')

pal <- colorNumeric(c("red", "blue", "green", "orange", "black", "purple",
                     "yellow", "pink"), 1:8)

l2 <- leaflet() %>% 
  addProviderTiles(providers$Esri.WorldTopoMap) %>%
  setView(lng = mean(cluster_data1$x, na.rm = TRUE),
          lat = mean(cluster_data1$y, na.rm = TRUE),
          zoom = 11) %>%
  addScaleBar(position = "topleft") %>%
  addCircleMarkers(data= cluster_data1,
                   lng=~x, 
                   lat=~y,
                   radius =~ 1, 
                   fillOpacity =~ 1,
                   color = ~pal(cluster),
                   label=~paste(name, address_admin, " | Cluster: ", cluster))

l2

6. Venues and Regulation

6.1. Business Licenses

nash_venue_data %>%
  group_by(BUSTYPE) %>%
  tally() %>%
  arrange(-n) %>%
  kable() %>%
  kable_styling()

BUSTYPE	n
Drinking Places (Alcoholic Bev	74
NA	49
Full Service Resturants	33
Small Resturants-Independents	25
Full Service Hotel	13
General Retail	8
Limited Service-Fast Food	7
Musical Groups + Artists	6
Office Administrative Services	6
Microbrewery	4
Book Stores + News Dealers	3
Music/Performance Venue	3
Apts WO/Clubhouse	2
Economy Hotel	2
Fitness + Recreational Sports	2
Hair, Nail + Skin Care Service	2
Apts W/Clubhouse	1
Automotive Body & Paint	1
Automotive Parts, Accessories	1
Caterers, Food Wagon, Mobile	1
Engineering Services	1
Equipment Only	1
Event Venue	1
Extended Stay Hotel	1
Food Mfg	1
Gift, Novelty, Souvenir Store	1
Misc Small Mfg	1
Motion Picture + Video Product	1
Offices of Lawyers	1
Sound Recording Studios	1

nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  ggplot()+
  geom_bar(aes(BUSTYPE, fill = IMV), position = "dodge")+
  coord_flip()+
  plotTheme

6.2. Zoning

These are the most coming zoning designations

SOPHIA - can you look up the top 10 of these and see what they actually mean in the code?

nash_venue_data %>%
  group_by(ZONE_DESC) %>%
  tally() %>%
  arrange(-n) %>%
  kable() %>%
  kable_styling()

ZONE_DESC	n
DTC	107
CS	22
MUL-A	21
CL	15
MUI-A	11
CA	10
MUG-A	10
SP	8
IR	6
SCR	6
RM20	4
CF	3
IWD	3
MUL	3
AR2A	2
CN	2
MUN-A	2
OR20	2
ORI	2
R10	2
RM20-A-NS	2
RS5	2
Satellite City	2
MUG	1
MUI	1
R20	1
R6	1
R6-A	1
R8	1

6.3. Land Use

nash_venue_data %>%
  group_by(LUDesc) %>%
  tally() %>%
  arrange(-n) %>%
  kable() %>%
  kable_styling()

LUDesc	n
RESTURANT/CAFETERIA	55
NIGHTCLUB/LOUNGE	35
STRIP SHOPPING CENTER	29
HOTEL/MOTEL	26
ONE STORY GENERAL RETAIL STORE	12
OFFICE BLDG (ONE OR TWO STORIES)	11
OFFICE BLDG (3 OR MORE STORIES)	8
METRO OTHER THAN OFC, SCHOOL,HOSP, OR PARK	6
CONDOMINIUM OFC OR OTHER COM CONDO	5
MUSEUM OR OTHER CULTURAL ORG.	5
VACANT COMMERCIAL LAND	5
APARTMENT: HIGH RISE (3 STORIES OR GREATER)	4
FAST FOOD	4
SMALL WAREHOUSE	4
VACANT RESIDENTIAL LAND	4
CLUB/UNION HALL/LODGE	3
LIGHT MANUFACTURING	3
PARK OR RECREATION	3
SCHOOL OR COLLEGE	3
SHOPPING CENTER	3
THEATER/AUDITORIUM	3
PARKING LOT	2
TERMINAL/DISTRIBUTION WARHOUSE	2
AUTO REPAIR/BODY SHOP	1
BRANCH FINANCIAL INSTITUTION	1
BUSINESS CENTER	1
CONVENIENCE MARKET WITH GAS	1
CONVENIENCE MARKET WITHOUT GAS	1
DOCK/MARINA	1
ENCLOSED MALL	1
FEDERAL OTHER THAN OFC, SCHOOL, HOSP, PARK	1
GOLF COURSE/DRIVING RANGE	1
HEAVY MANUFACTURING	1
PACKING PLANT/FOOD PROCESSING	1
PARKING GARAGE	1
RECORDING STUDIO	1
RECREATIONAL	1
RESIDENTIAL CONDO	1
SINGLE FAMILY	1
SMALL SERVICE SHOP	1
NA	1

ggplot(nash_venue_data)+
  geom_bar(aes(LUDesc))+
  facet_wrap(~music_space)+
  coord_flip()+
  plotTheme

ggplot(nash_venue_data %>%
         filter(music_space == "Music Space"))+
  geom_bar(aes(LUDesc, fill = IMV), position = "dodge")+
  coord_flip()+
  plotTheme

What on earth is going on here? These are businesses along with their IMV designations, LU, Business License type

nash_venue_data %>% 
  select(BUSTYPE, LUDesc, name, address_admin, IMV, music_space) %>% 
  kable() %>%
  kable_styling()

BUSTYPE	LUDesc	name	address_admin	IMV	music_space
Small Resturants-Independents	BUSINESS CENTER	3rd & Lindsley	805 PRESIDENT RONALD REAGAN WAY	Indep. Owned and Operated	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	404 Bar & Grill	404 ELYSIAN FIELDS RD	Indep. Owned and Operated	Music Space
Microbrewery	RESTURANT/CAFETERIA	6th and Peabody	423 6TH AVE S	Quasi-independent	Occasional Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	AJ’s Good Time Bar	421 BROADWAY	Quasi-independent	Music Space
Full Service Resturants	RESTURANT/CAFETERIA	Acme Feed & Seed	101 BROADWAY	Quasi-independent	Music Space
NA	RESIDENTIAL CONDO	Alley Taps	162 4TH AVE N 205	Quasi-independent	Music Space
Full Service Hotel	HOTEL/MOTEL	Aloft Nashville West End	1719 WEST END AVE	Non-Independent	Occasional Music Space
Office Administrative Services	CLUB/UNION HALL/LODGE	American Legion Post 82	3204 GALLATIN PIKE	Quasi-independent	Music Space
Full Service Hotel	HOTEL/MOTEL	Analog at Hutton Hotel	1808 WEST END AVE	Non-Independent	Music Space
General Retail	OFFICE BLDG (3 OR MORE STORIES)	Andrew Jackson Hall-TPAC	301 REP JOHN LEWIS WAY N	Non-Independent	Music Space
Small Resturants-Independents	STRIP SHOPPING CENTER	Anzie Blue	1803 21ST AVE S	Quasi-independent	Music Space
Music/Performance Venue	VACANT COMMERCIAL LAND	Ascend Amphitheater	310 1ST AVE S	Non-Independent	Music Space
Limited Service-Fast Food	STRIP SHOPPING CENTER	Assembly Food Hall	500 BROADWAY	Non-Independent	Occasional Music Space
Drinking Places (Alcoholic Bev	SMALL WAREHOUSE	Bar Sovereign	514 REP JOHN LEWIS WAY S	Quasi-independent	Occasional Music Space
Hair, Nail + Skin Care Service	OFFICE BLDG (ONE OR TWO STORIES)	Barbershop Theater	4003 INDIANA AVE	Non-Independent	Occasional Music Space
Full Service Hotel	HOTEL/MOTEL	Barlines (Omni Nashville Hotel)	250 REP JOHN LEWIS WAY S	Non-Independent	Occasional Music Space
Full Service Resturants	ENCLOSED MALL	Bavarian Bierhaus	433 OPRY MILLS DR	Non-Independent	Music Space
NA	MUSEUM OR OTHER CULTURAL ORG.	Belcourt Theatre	2100 BELCOURT AVE	Non-Independent	Music Space
Limited Service-Fast Food	ONE STORY GENERAL RETAIL STORE	Betty’s Grill	4900 CHARLOTTE AVE	Quasi-independent	Occasional Music Space
Apts WO/Clubhouse	OFFICE BLDG (ONE OR TWO STORIES)	Big Jimmy’s	109 2ND AVE N	Non-Independent	Occasional Music Space
Drinking Places (Alcoholic Bev	RESTURANT/CAFETERIA	Big Machine Brewery	120 3RD AVE S	Non-Independent	Occasional Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Big Shotz	115 2ND AVE N	Quasi-independent	Occasional Music Space
Small Resturants-Independents	CONDOMINIUM OFC OR OTHER COM CONDO	Black Rabbit	218 3RD AVE N #100	Non-Independent	Music Space
Drinking Places (Alcoholic Bev	BRANCH FINANCIAL INSTITUTION	Bobby’s Idle Hour Tavern	9 MUSIC SQ S	Quasi-independent	Music Space
Small Resturants-Independents	RESTURANT/CAFETERIA	Bongo Java After Hours Theatre	2007 BELMONT BLVD	Non-Independent	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Bootleggers Inn	207 BROADWAY	Quasi-independent	Music Space
Drinking Places (Alcoholic Bev	FAST FOOD	Bourbon Street Blues and Boogie Bar	218 4TH AVE N	Quasi-independent	Music Space
NA	RESTURANT/CAFETERIA	Bowie’s	174 3RD AVE N	Quasi-independent	Music Space
Musical Groups + Artists	METRO OTHER THAN OFC, SCHOOL,HOSP, OR PARK	Bridgestone Arena	501 BROADWAY	Non-Independent	Occasional Music Space
Drinking Places (Alcoholic Bev	STRIP SHOPPING CENTER	Brooklyn Bowl Nashville	915 3RD AVE N	Non-Independent	Music Space
Small Resturants-Independents	STRIP SHOPPING CENTER	Bucanas 2009	3802 NOLENSVILLE PIKE	Quasi-independent	Music Space
NA	HOTEL/MOTEL	CE gallery (WEHO and/or Madison location)	425 CHESTNUT ST	Quasi-independent	Music Space
NA	MUSEUM OR OTHER CULTURAL ORG.	CMA Theater	224 REP JOHN LEWIS WAY S	Non-Independent	Occasional Music Space
Small Resturants-Independents	RESTURANT/CAFETERIA	Cafe Coco	210 LOUISE AVE	Quasi-independent	Occasional Music Space
Full Service Resturants	RESTURANT/CAFETERIA	Caney Fork River Valley Grille	2400 MUSIC VALLEY DR	Quasi-independent	Occasional Music Space
Small Resturants-Independents	STRIP SHOPPING CENTER	Carl’s Corner Pub & Bar	3755 NOLENSVILLE PIKE	Quasi-independent	Occasional Music Space
Small Resturants-Independents	RESTURANT/CAFETERIA	Casa Rosa Miranda Lamberts	308 BROADWAY	Non-Independent	Occasional Music Space
Gift, Novelty, Souvenir Store	MUSEUM OR OTHER CULTURAL ORG.	Cheekwood Botanical Garden and Museum of Art	111 CHEEK RD	Quasi-independent	Music Space
Drinking Places (Alcoholic Bev	RESTURANT/CAFETERIA	City Winery Nashville	600 MIDDLETON ST	Quasi-independent	Music Space
Full Service Hotel	HOTEL/MOTEL	Commodore Grille (Holiday Inn Vanderbilt)	2613 WEST END AVE	Non-Independent	Music Space
NA	OFFICE BLDG (ONE OR TWO STORIES)	Corner Bar at Elliston Place	2200 ELLISTON PL	Quasi-independent	Occasional Music Space
Musical Groups + Artists	MUSEUM OR OTHER CULTURAL ORG.	Country Music Hall of Fame and Museum	222 REP JOHN LEWIS WAY S	Non-Independent	Music Space
Drinking Places (Alcoholic Bev	HOTEL/MOTEL	Cross-Eyed Critters Watering Hole	101 20TH AVE N	Non-Independent	Occasional Music Space
Drinking Places (Alcoholic Bev	RESTURANT/CAFETERIA	Crow’s Nest	2221 BANDYWOOD DR	Quasi-independent	Occasional Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Dawg House Saloon	1522 DEMONBREUN ST	Indep. Owned and Operated	Occasional Music Space
Equipment Only	HOTEL/MOTEL	Decker & Dyer	807 CLARK PL	Indep. Owned and Operated	Occasional Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Dee’s Country Cocktail Lounge	102 E PALESTINE AVE	Quasi-independent	Music Space
NA	METRO OTHER THAN OFC, SCHOOL,HOSP, OR PARK	Deep Tropics (Music Festival)	900 ROSA L PARKS BLVD	Indep. Owned and Operated	Occasional Music Space
NA	SMALL WAREHOUSE	Delgado Guitars	919 C GALLATIN AVE	Quasi-independent	Music Space
Full Service Resturants	RESTURANT/CAFETERIA	Dierks Bentley’s Whiskey Row Nashville	400 BROADWAY	Quasi-independent	Occasional Music Space
Drinking Places (Alcoholic Bev	OFFICE BLDG (3 OR MORE STORIES)	Doc Holidays	112 2ND AVE N	Quasi-independent	Occasional Music Space
Full Service Hotel	HOTEL/MOTEL	Dream Nightclub	210 4TH AVE N	Non-Independent	Music Space
Drinking Places (Alcoholic Bev	RESTURANT/CAFETERIA	Drifters BBQ	1008 WOODLAND ST	Quasi-independent	Occasional Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Drkmttr Collective	1111 DICKERSON PIKE	Indep. Owned and Operated	Music Space
Full Service Hotel	HOTEL/MOTEL	Drury Plaza Hotel Nashville Downtown-Bar	300 KOREAN VETERANS BLVD	Non-Independent	Occasional Music Space
Engineering Services	HOTEL/MOTEL	ERGO	1001 BROADWAY	Non-Independent	Occasional Music Space
Office Administrative Services	RESTURANT/CAFETERIA	EXIT/IN	2208 ELLISTON PL	Non-Independent	Music Space
Automotive Parts, Accessories	STRIP SHOPPING CENTER	Eastside Bowl	1508 GALLATIN PIKE	Quasi-independent	Music Space
Full Service Hotel	HOTEL/MOTEL	Ellingston’s	241 4TH AVE N	Quasi-independent	Occasional Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Famous Nashville	110 2ND AVE N	Quasi-independent	Music Space
General Retail	ONE STORY GENERAL RETAIL STORE	Fanny’s House of Music	1101 HOLLY ST	Quasi-independent	Occasional Music Space
Small Resturants-Independents	RESTURANT/CAFETERIA	Flamingo Cocktail Club	509 HOUSTON ST	Quasi-independent	Music Space
NA	RESTURANT/CAFETERIA	Florida Georgia Line House	120 3RD AVE S	Non-Independent	Occasional Music Space
Motion Picture + Video Product	FEDERAL OTHER THAN OFC, SCHOOL, HOSP, PARK	Frist Center for the Visual Arts	919 BROADWAY	Non-Independent	Occasional Music Space
NA	VACANT RESIDENTIAL LAND	GEODIS Park	0 RAINS AVE	Non-Independent	Occasional Music Space
Full Service Resturants	DOCK/MARINA	General Jackson Showboat	577 OPRY MILLS DR	Non-Independent	Music Space
Music/Performance Venue	THEATER/AUDITORIUM	Grand Ole Opry	2804 OPRYLAND DR	Non-Independent	Music Space
General Retail	STRIP SHOPPING CENTER	Grimey’s New & Preloved Music	1060 E TRINITY LN	Quasi-independent	Music Space
Book Stores + News Dealers	OFFICE BLDG (ONE OR TWO STORIES)	HOME (Helping Our Music Evolve)	615 MAIN ST	Quasi-independent	Music Space
Full Service Resturants	RESTURANT/CAFETERIA	Hard Rock Cafe	108 2ND AVE N	Non-Independent	Music Space
Small Resturants-Independents	STRIP SHOPPING CENTER	Helen’s Hot Chicken	1801 JEFFERSON ST	Quasi-independent	Occasional Music Space
Drinking Places (Alcoholic Bev	OFFICE BLDG (ONE OR TWO STORIES)	Hifi Clyde’s Nashville	1700 CHURCH ST	Non-Independent	Occasional Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Honky Tonk Central	329 BROADWAY	Quasi-independent	Music Space
Drinking Places (Alcoholic Bev	RESTURANT/CAFETERIA	Hopsmith Tavern	1903 DIVISION ST	Non-Independent	Occasional Music Space
NA	STRIP SHOPPING CENTER	Hubba Hubba Tiki Tonk	922 MAIN ST	Quasi-independent	Occasional Music Space
Small Resturants-Independents	RESTURANT/CAFETERIA	Inglewood Lounge	3914 GALLATIN PIKE	Quasi-independent	Occasional Music Space
Small Resturants-Independents	NIGHTCLUB/LOUNGE	Island Vibes	1316 ANTIOCH PIKE	Quasi-independent	Occasional Music Space
General Retail	OFFICE BLDG (3 OR MORE STORIES)	James K Polk Theater-TPAC	301 REP JOHN LEWIS WAY N	Non-Independent	Music Space
Drinking Places (Alcoholic Bev	STRIP SHOPPING CENTER	Jane’s Hideaway	403 GALLATIN AVE	Indep. Owned and Operated	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Jason Aldean’s Kitchen + Rooftop Bar	309 BROADWAY	Non-Independent	Music Space
NA	VACANT COMMERCIAL LAND	Jefferson Street Jazz Street Festival	1215 9TH AVE N	Indep. Owned and Operated	Occasional Music Space
Full Service Resturants	RESTURANT/CAFETERIA	Jimmy Buffett’s Margaritaville	322 BROADWAY	Non-Independent	Music Space
Drinking Places (Alcoholic Bev	RESTURANT/CAFETERIA	Joe’s Place	2227 BANDYWOOD DR	Non-Independent	Occasional Music Space
Drinking Places (Alcoholic Bev	CONVENIENCE MARKET WITH GAS	John A’s Restaurant	2425 MUSIC VALLEY DR	Quasi-independent	Occasional Music Space
Full Service Resturants	RESTURANT/CAFETERIA	Johnny Cash’s Kitchen & Saloon	121 3RD AVE S	Non-Independent	Music Space
Full Service Resturants	RESTURANT/CAFETERIA	Kid Rock’s Big Honky Tonk Rock N’ Roll Steakhouse	221 BROADWAY	Quasi-independent	Occasional Music Space
Full Service Resturants	HOTEL/MOTEL	L27 Rooftop Lounge	807 CLARK PL	Non-Independent	Occasional Music Space
Small Resturants-Independents	RESTURANT/CAFETERIA	La Costa Mexican Seafood	5332 CANE RIDGE RD	Quasi-independent	Occasional Music Space
NA	SINGLE FAMILY	Larry’s Grand Ole Garage	549 E MAPLE ST	Indep. Owned and Operated	Occasional Music Space
Full Service Resturants	SHOPPING CENTER	Las Cazuelas	4112 NOLENSVILLE PIKE	Quasi-independent	Occasional Music Space
Drinking Places (Alcoholic Bev	SHOPPING CENTER	Las Fogatas	5560 NOLENSVILLE PIKE	Quasi-independent	Occasional Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Layla’s Honky Tonk	418 BROADWAY	Indep. Owned and Operated	Music Space
Drinking Places (Alcoholic Bev	STRIP SHOPPING CENTER	Legends Corner	424 BROADWAY	Quasi-independent	Music Space
Book Stores + News Dealers	SCHOOL OR COLLEGE	Lipscomb University Department of Theatre	1 UNIVERSITY PARK DR	Non-Independent	Occasional Music Space
Small Resturants-Independents	METRO OTHER THAN OFC, SCHOOL,HOSP, OR PARK	Little Harpeth Brewing	1 TERMINAL DR	Quasi-independent	Occasional Music Space
Drinking Places (Alcoholic Bev	ONE STORY GENERAL RETAIL STORE	Live Oak	1530 DEMONBREUN ST	Quasi-independent	Music Space
Food Mfg	PARKING GARAGE	Lonnie’s western Room	300 CHURCH ST	Quasi-independent	Occasional Music Space
Full Service Resturants	RESTURANT/CAFETERIA	Los Arcos	3798 NOLENSVILLE PIKE	Quasi-independent	Occasional Music Space
NA	NIGHTCLUB/LOUNGE	Loser Most Wanted Bar & Grill (Midtown)	111 4TH AVE S	Quasi-independent	Occasional Music Space
Drinking Places (Alcoholic Bev	HOTEL/MOTEL	Lou|Na	1000 BROADWAY	Non-Independent	Occasional Music Space
Full Service Resturants	RESTURANT/CAFETERIA	Loveless Cafe	8400 HIGHWAY 100	Quasi-independent	Occasional Music Space
Full Service Resturants	NIGHTCLUB/LOUNGE	Lucky Bastard Saloon	408 BROADWAY	Quasi-independent	Music Space
Drinking Places (Alcoholic Bev	ONE STORY GENERAL RETAIL STORE	Luke’s 32 Bridge Food & Drink	301 BROADWAY	Quasi-independent	Music Space
Office Administrative Services	HEAVY MANUFACTURING	Marathon Music Works	1404 CLINTON ST	Non-Independent	Music Space
Small Resturants-Independents	CONDOMINIUM OFC OR OTHER COM CONDO	Marisqueria 7 Mares	931 RICHARDS RD	Quasi-independent	Occasional Music Space
Full Service Resturants	RESTURANT/CAFETERIA	Martin’s BBQ Joint - SOBRO	410 4TH AVE S	Non-Independent	Occasional Music Space
Full Service Hotel	HOTEL/MOTEL	Maxwell Lounge at Millenium Maxwell House Nashville	2025 ROSA L PARKS BLVD	Non-Independent	Occasional Music Space
Small Resturants-Independents	RESTURANT/CAFETERIA	McNamara’s Irish Pub	2740 OLD LEBANON PIKE	Indep. Owned and Operated	Music Space
Full Service Resturants	RESTURANT/CAFETERIA	Mellow Mushroom (Broadway)	423 BROADWAY	Non-Independent	Occasional Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Mickeys Tavern	2907 GALLATIN PIKE	Non-Independent	Occasional Music Space
NA	VACANT COMMERCIAL LAND	Minerva Avenue	1002 BUCHANAN ST	Indep. Owned and Operated	Occasional Music Space
Hair, Nail + Skin Care Service	ONE STORY GENERAL RETAIL STORE	Mirror Mirror	2623 LEBANON PIKE	Indep. Owned and Operated	Occasional Music Space
Drinking Places (Alcoholic Bev	CONDOMINIUM OFC OR OTHER COM CONDO	Miss Kelli’s Karaoke Bar	207 3RD AVE N 101	Quasi-independent	Occasional Music Space
NA	NA	Moonlite Drive-in	941 B MAIN ST	Non-Independent	Occasional Music Space
Economy Hotel	HOTEL/MOTEL	Moxy Nashville	110 3RD AVE S	Non-Independent	Occasional Music Space
Drinking Places (Alcoholic Bev	STRIP SHOPPING CENTER	Music City Bar & Grill	2416 MUSIC VALLEY DR	Quasi-independent	Occasional Music Space
Limited Service-Fast Food	METRO OTHER THAN OFC, SCHOOL,HOSP, OR PARK	Music City Center	201 REP JOHN LEWIS WAY S	Non-Independent	Music Space
NA	HOTEL/MOTEL	Music City Walk of Fame Park	121 4TH AVE S	Non-Independent	Occasional Music Space
Misc Small Mfg	SMALL WAREHOUSE	Music Makers Stages at Delgado Guitars	919 A GALLATIN AVE	Quasi-independent	Occasional Music Space
NA	PARK OR RECREATION	Musicians Corner	2500 WEST END AVE	Non-Independent	Music Space
Office Administrative Services	THEATER/AUDITORIUM	Musicians Hall of Fame and Museum	417 4TH AVE N	Non-Independent	Occasional Music Space
NA	OFFICE BLDG (3 OR MORE STORIES)	NashHouse Southern Spoon and Saloon	1222 DEMONBREUN ST	Non-Independent	Occasional Music Space
Musical Groups + Artists	OFFICE BLDG (3 OR MORE STORIES)	Nashville Children’s Theatre	700 PRESIDENT RONALD REAGAN WAY	Non-Independent	Occasional Music Space
NA	METRO OTHER THAN OFC, SCHOOL,HOSP, OR PARK	Nashville Farmers’ Market	900 ROSA L PARKS BLVD	Non-Independent	Occasional Music Space
NA	OFFICE BLDG (ONE OR TWO STORIES)	Nashville Jazz Workshop	1012 BUCHANAN ST	Indep. Owned and Operated	Music Space
Office Administrative Services	THEATER/AUDITORIUM	Nashville Municipal Auditorium	417 4TH AVE N	Non-Independent	Music Space
Musical Groups + Artists	STRIP SHOPPING CENTER	Nashville Nightlife Theater	2416 MUSIC VALLEY DR	Non-Independent	Music Space
Full Service Resturants	RESTURANT/CAFETERIA	Nashville Underground	105 BROADWAY	Quasi-independent	Music Space
NA	OFFICE BLDG (ONE OR TWO STORIES)	Nashville’s War Memorial Auditorium	301 6TH AVE N	Non-Independent	Music Space
General Retail	STRIP SHOPPING CENTER	Natl Museum of African American Music	500 BROADWAY	Non-Independent	Occasional Music Space
Small Resturants-Independents	RESTURANT/CAFETERIA	Nectar Urban Cantina	206 MCGAVOCK PIKE	Indep. Owned and Operated	Music Space
Drinking Places (Alcoholic Bev	STRIP SHOPPING CENTER	Neighbors of Sylvan Park	4425 MURPHY RD	Non-Independent	Occasional Music Space
Fitness + Recreational Sports	PARK OR RECREATION	Nissan Stadium	1 TITANS WAY	Non-Independent	Occasional Music Space
Small Resturants-Independents	RESTURANT/CAFETERIA	Noble’s East Nashville	974 MAIN ST	Quasi-independent	Occasional Music Space
Full Service Resturants	NIGHTCLUB/LOUNGE	Nudie’s Honky Tonk	409 BROADWAY	Non-Independent	Music Space
Drinking Places (Alcoholic Bev	STRIP SHOPPING CENTER	Old Glory	1200 VILLA PL	Quasi-independent	Occasional Music Space
Drinking Places (Alcoholic Bev	RESTURANT/CAFETERIA	Ole Red	300 BROADWAY	Quasi-independent	Music Space
Economy Hotel	HOTEL/MOTEL	Opry Backstage Grill	2401 MUSIC VALLEY DR	Non-Independent	Occasional Music Space
NA	PARKING LOT	Out Loud Music Festival	14 JAMES ROBERTSON PKWY	Indep. Owned and Operated	Occasional Music Space
Event Venue	TERMINAL/DISTRIBUTION WARHOUSE	Oz Arts Nashville	6172 COCKRILL BEND CIR	Non-Independent	Music Space
Drinking Places (Alcoholic Bev	STRIP SHOPPING CENTER	Patron Event Center	709 RIVERGATE PKWY	Non-Independent	Occasional Music Space
Small Resturants-Independents	RESTURANT/CAFETERIA	Pearl Diver	1010 GALLATIN AVE	Non-Independent	Occasional Music Space
Small Resturants-Independents	ONE STORY GENERAL RETAIL STORE	Phat Bites Deli & Bar	2730 LEBANON PIKE	Indep. Owned and Operated	Occasional Music Space
Drinking Places (Alcoholic Bev	STRIP SHOPPING CENTER	Play Dance Bar	1517 CHURCH ST	Indep. Owned and Operated	Music Space
Office Administrative Services	SHOPPING CENTER	Plaza Mariachi	3955 NOLENSVILLE PIKE	Non-Independent	Music Space
General Retail	STRIP SHOPPING CENTER	Primm’s Appetit	2830 GALLATIN PIKE	Quasi-independent	Occasional Music Space
Full Service Resturants	OFFICE BLDG (3 OR MORE STORIES)	Puckett’s Grocery & Restaurant Downtown	201 REP JOHN LEWIS WAY N	Non-Independent	Music Space
Drinking Places (Alcoholic Bev	RESTURANT/CAFETERIA	Ray Stevens CabaRay	5724 RIVER RD	Quasi-independent	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Rebar at the Dam	3248 BLACKWOOD DR	Quasi-independent	Occasional Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Red Door Saloon	1816 DIVISION ST	Non-Independent	Occasional Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Red Door Saloon East	1010 FORREST AVE	Non-Independent	Occasional Music Space
Drinking Places (Alcoholic Bev	OFFICE BLDG (ONE OR TWO STORIES)	Redneck Riviera	208 BROADWAY	Quasi-independent	Occasional Music Space
NA	HOTEL/MOTEL	Renaissance Nashville Hotel-Bridge Bar	611 COMMERCE ST	Non-Independent	Occasional Music Space
Limited Service-Fast Food	RESTURANT/CAFETERIA	Rippy’s Smokin’ Bar & Grill	429 BROADWAY	Quasi-independent	Occasional Music Space
NA	OFFICE BLDG (ONE OR TWO STORIES)	Riverside Revival Nashville	1600 RIVERSIDE DR	Non-Independent	Music Space
Drinking Places (Alcoholic Bev	ONE STORY GENERAL RETAIL STORE	Robert’s Western World	416 B BROADWAY	Quasi-independent	Music Space
Music/Performance Venue	CLUB/UNION HALL/LODGE	Rocketown (Main Building)	601 4TH AVE S	Non-Independent	Music Space
Full Service Resturants	RESTURANT/CAFETERIA	Rosemary and Beauty Queen (bar); Pink Spiders (band)	1102 FORREST AVE	Indep. Owned and Operated	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Rosie’s Twin Kegs	413 THOMPSON LN	Indep. Owned and Operated	Occasional Music Space
Drinking Places (Alcoholic Bev	RESTURANT/CAFETERIA	Rudy’s Jazz Room	600 9TH AVE S	Indep. Owned and Operated	Music Space
Musical Groups + Artists	RECREATIONAL	Ryman Auditorium	116 REP JOHN LEWIS WAY N	Non-Independent	Music Space
Apts WO/Clubhouse	APARTMENT: HIGH RISE (3 STORIES OR GREATER)	Sambuca (Restaurant)	1209 PINE ST	Non-Independent	Music Space
Drinking Places (Alcoholic Bev	FAST FOOD	Santa’s Pub	2225 BRANSFORD AVE	Indep. Owned and Operated	Occasional Music Space
NA	MUSEUM OR OTHER CULTURAL ORG.	Schermerhorn Symphony Center	1 SYMPHONY PL	Non-Independent	Music Space
Drinking Places (Alcoholic Bev	STRIP SHOPPING CENTER	Scoreboard Restaurant & Sports Bar	2416 MUSIC VALLEY DR	Non-Independent	Occasional Music Space
Book Stores + News Dealers	SCHOOL OR COLLEGE	Shamblin Theater	1 UNIVERSITY PARK DR	Non-Independent	Occasional Music Space
Full Service Hotel	HOTEL/MOTEL	Sheraton Downtown Nashville	623 UNION ST	Non-Independent	Occasional Music Space
Extended Stay Hotel	VACANT RESIDENTIAL LAND	Sidebar Nashville	401 B PRESIDENT RONALD REAGAN WAY	Non-Independent	Occasional Music Space
Full Service Resturants	STRIP SHOPPING CENTER	Sinema	2600 8TH AVE S	Quasi-independent	Occasional Music Space
Full Service Resturants	OFFICE BLDG (3 OR MORE STORIES)	Skull’s Rainbow Club	222 4TH AVE N	Indep. Owned and Operated	Music Space
NA	VACANT COMMERCIAL LAND	Skydeck on Broadway	600 B BROADWAY	Non-Independent	Music Space
Full Service Hotel	HOTEL/MOTEL	Snitch	210 4TH AVE N	Non-Independent	Occasional Music Space
Limited Service-Fast Food	HOTEL/MOTEL	Sobro Sports Bar and Grill (Hilton Garden Inn Downtown)	419 3RD AVE S	Non-Independent	Occasional Music Space
NA	PARKING LOT	Solberg Studios	1618 JEFFERSON ST	Quasi-independent	Music Space
Drinking Places (Alcoholic Bev	RESTURANT/CAFETERIA	Sonny’s Patio Pub and Refuge	1318 6TH AVE N	Indep. Owned and Operated	Music Space
NA	RESTURANT/CAFETERIA	Southern Grist Brewing East Nashville	754 DOUGLAS AVE	Quasi-independent	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Springwater Supper Club & Lounge	2701 POSTON AVE	Indep. Owned and Operated	Occasional Music Space
Limited Service-Fast Food	ONE STORY GENERAL RETAIL STORE	Star Rover Sound	1400 ADAMS ST	Quasi-independent	Music Space
Full Service Hotel	HOTEL/MOTEL	Symphony Lounge at Hilton Nashville Downtown	121 4TH AVE S	Non-Independent	Occasional Music Space
Full Service Resturants	HOTEL/MOTEL	TRUE Music Room and Bar (Cambria Hotel & Suites)	118 8TH AVE S	Non-Independent	Occasional Music Space
NA	SCHOOL OR COLLEGE	TSU Performing Arts Center	3401 JOHN A MERRITT BLVD	Non-Independent	Occasional Music Space
Full Service Resturants	STRIP SHOPPING CENTER	TailGate Brewery East	811 GALLATIN AVE	Quasi-independent	Occasional Music Space
NA	RESTURANT/CAFETERIA	TailGate Brewery Music Row	1538 DEMONBREUN ST	Quasi-independent	Occasional Music Space
Microbrewery	PACKING PLANT/FOOD PROCESSING	Tailgate Brewery-HQ	7300 CHARLOTTE PIKE	Quasi-independent	Occasional Music Space
Microbrewery	LIGHT MANUFACTURING	Tennessee Brew Works	809 EWING AVE	Quasi-independent	Occasional Music Space
Drinking Places (Alcoholic Bev	RESTURANT/CAFETERIA	Tequila Cowboy	305 BROADWAY	Quasi-independent	Music Space
Musical Groups + Artists	STRIP SHOPPING CENTER	Texas Troubadour Theatre	2416 MUSIC VALLEY DR	Quasi-independent	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	The 5 Spot	1006 FORREST AVE	Indep. Owned and Operated	Music Space
Full Service Resturants	LIGHT MANUFACTURING	The Back Corner	1401 5TH AVE N	Non-Independent	Occasional Music Space
NA	CLUB/UNION HALL/LODGE	The Ballad of Emerson Hall	2510 GALLATIN AVE	Non-Independent	Occasional Music Space
NA	OFFICE BLDG (ONE OR TWO STORIES)	The Basement	1604 8TH AVE S	Indep. Owned and Operated	Music Space
NA	NIGHTCLUB/LOUNGE	The Basement East	917 WOODLAND ST	Quasi-independent	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	The Big Bang Dueling Pianos	209 3RD AVE N	Quasi-independent	Music Space
Sound Recording Studios	RECORDING STUDIO	The Blue Room at Third Man Records	623 7TH AVE S	Quasi-independent	Music Space
General Retail	CONDOMINIUM OFC OR OTHER COM CONDO	The Bluebird Cafe	4104 A HILLSBORO PIKE	Indep. Owned and Operated	Music Space
NA	STRIP SHOPPING CENTER	The Bowery Vault	2905 GALLATIN PIKE	Quasi-independent	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	The Cobra	2511 GALLATIN AVE	Indep. Owned and Operated	Music Space
Full Service Hotel	VACANT COMMERCIAL LAND	The Countrypolitan Bar & Kitchen (inside Hotel Indigo)	301 UNION ST	Non-Independent	Music Space
Fitness + Recreational Sports	GOLF COURSE/DRIVING RANGE	The Cowan	500 COWAN ST	Non-Independent	Occasional Music Space
Offices of Lawyers	HOTEL/MOTEL	The District Bar & Kitchen (Hotel Indigo Downtown)	315 UNION ST	Non-Independent	Occasional Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	The Donelson Pub	945 ALLEN RD	Quasi-independent	Music Space
Drinking Places (Alcoholic Bev	STRIP SHOPPING CENTER	The East Room	2412 GALLATIN AVE	Indep. Owned and Operated	Music Space
NA	STRIP SHOPPING CENTER	The Eighth Room	2106 8TH AVE S	Quasi-independent	Music Space
Apts W/Clubhouse	APARTMENT: HIGH RISE (3 STORIES OR GREATER)	The Electric Jane	1221 DIVISION ST	Indep. Owned and Operated	Music Space
Drinking Places (Alcoholic Bev	RESTURANT/CAFETERIA	The End	2219 ELLISTON PL	Indep. Owned and Operated	Music Space
NA	VACANT RESIDENTIAL LAND	The Fairgrounds Nashville	0 RAINS AVE	Non-Independent	Occasional Music Space
NA	VACANT RESIDENTIAL LAND	The Fisher Center for the Performing Arts	2020 BELMONT BLVD	Non-Independent	Occasional Music Space
General Retail	STRIP SHOPPING CENTER	The Getalong	700 A FATHERLAND ST	Quasi-independent	Occasional Music Space
Full Service Resturants	APARTMENT: HIGH RISE (3 STORIES OR GREATER)	The Goat	1226 2ND AVE N	Non-Independent	Occasional Music Space
NA	SMALL WAREHOUSE	The Green Light	833 9TH AVE S	Quasi-independent	Occasional Music Space
NA	CONDOMINIUM OFC OR OTHER COM CONDO	The Hampton Social	201 1ST AVE S	Non-Independent	Occasional Music Space
Automotive Body & Paint	AUTO REPAIR/BODY SHOP	The Hideout Salon and Lounge	2605 GALLATIN AVE	Quasi-independent	Occasional Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	The High Watt	1 CANNERY ROW	Non-Independent	Music Space
NA	OFFICE BLDG (3 OR MORE STORIES)	The Jamnasium-nashville City Center	511 UNION ST	Quasi-independent	Occasional Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	The Lipstick Lounge	1400 WOODLAND ST	Indep. Owned and Operated	Music Space
Drinking Places (Alcoholic Bev	RESTURANT/CAFETERIA	The Listening Room	618 4TH AVE S	Indep. Owned and Operated	Music Space
NA	CONVENIENCE MARKET WITHOUT GAS	The Local Distro	614 GARFIELD ST	Indep. Owned and Operated	Occasional Music Space
Small Resturants-Independents	NIGHTCLUB/LOUNGE	The Local Nashville	110 28TH AVE N	Quasi-independent	Music Space
Full Service Resturants	ONE STORY GENERAL RETAIL STORE	The Nashville Palace	2611 A MCGAVOCK PIKE	Non-Independent	Music Space
Small Resturants-Independents	OFFICE BLDG (ONE OR TWO STORIES)	The Office Nashville	604 GALLATIN AVE	Quasi-independent	Music Space
NA	PARK OR RECREATION	The Parthenon	2500 WEST END AVE	Non-Independent	Occasional Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	The Roadside Bar & Grill	4617 OLD HICKORY BLVD	Quasi-independent	Music Space
Full Service Resturants	RESTURANT/CAFETERIA	The Row Kitchen & Pub	110 LYLE AVE	Quasi-independent	Music Space
NA	RESTURANT/CAFETERIA	The Rum Room	2116 MEHARRY BLVD	Quasi-independent	Occasional Music Space
Drinking Places (Alcoholic Bev	ONE STORY GENERAL RETAIL STORE	The Second Fiddle	420 BROADWAY	Quasi-independent	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	The Stage on Broadway	412 BROADWAY	Quasi-independent	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	The Station Inn	402 12TH AVE S	Indep. Owned and Operated	Music Space
Full Service Resturants	RESTURANT/CAFETERIA	The Stillery (Downtown)	113 2ND AVE N	Quasi-independent	Occasional Music Space
Small Resturants-Independents	RESTURANT/CAFETERIA	The Treehouse	1011 CLEARVIEW AVE	Quasi-independent	Occasional Music Space
NA	SMALL SERVICE SHOP	The Underdog	3208 GALLATIN PIKE	Quasi-independent	Occasional Music Space
Full Service Resturants	RESTURANT/CAFETERIA	The Valentine	312 BROADWAY	Non-Independent	Music Space
Caterers, Food Wagon, Mobile	TERMINAL/DISTRIBUTION WARHOUSE	The Vinyl Lounge	1414 3RD AVE S	Quasi-independent	Music Space
Small Resturants-Independents	LIGHT MANUFACTURING	The Wedge pizza Pub	2020 LINDELL AVE	Quasi-independent	Occasional Music Space
Drinking Places (Alcoholic Bev	STRIP SHOPPING CENTER	Thirsty Turtle Sports Grill	1307 BELL RD	Quasi-independent	Occasional Music Space
Full Service Resturants	RESTURANT/CAFETERIA	Tin Roof Broadway	316 BROADWAY	Quasi-independent	Occasional Music Space
NA	ONE STORY GENERAL RETAIL STORE	Tomato Art Fest	1106 WOODLAND ST	Non-Independent	Occasional Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Tootsie’s Orchid Lounge	422 BROADWAY	Non-Independent	Music Space
NA	METRO OTHER THAN OFC, SCHOOL,HOSP, OR PARK	Tootsie’s Orchid Lounge (Nashville Intl. Airport)	1 TERMINAL DR	Non-Independent	Occasional Music Space
Full Service Resturants	FAST FOOD	Tribe	1515 CHURCH ST	Indep. Owned and Operated	Occasional Music Space
NA	NIGHTCLUB/LOUNGE	Twelve Keys Saloon	4719 ANDREW JACKSON PKWY	Indep. Owned and Operated	Music Space
Drinking Places (Alcoholic Bev	RESTURANT/CAFETERIA	Twin Kegs II	327 HERMITAGE AVE	Quasi-independent	Occasional Music Space
Full Service Hotel	HOTEL/MOTEL	Up a roof top lounge	901 DIVISION ST	Non-Independent	Occasional Music Space
Drinking Places (Alcoholic Bev	FAST FOOD	Urban Cowboy Public House Bar	1603 WOODLAND ST	Quasi-independent	Occasional Music Space
Small Resturants-Independents	RESTURANT/CAFETERIA	Van Gogh’s Ear Wine Bar	1112 WOODLAND ST	Quasi-independent	Occasional Music Space
Drinking Places (Alcoholic Bev	RESTURANT/CAFETERIA	Vinyl Tap	2038 GREENWOOD AVE	Quasi-independent	Music Space
Drinking Places (Alcoholic Bev	RESTURANT/CAFETERIA	WannaB’s Karaoke Bar	305 BROADWAY	Non-Independent	Occasional Music Space
Drinking Places (Alcoholic Bev	ONE STORY GENERAL RETAIL STORE	Whiskey Bent Saloon	306 BROADWAY	Non-Independent	Occasional Music Space
Full Service Resturants	NIGHTCLUB/LOUNGE	Wildhorse Saloon	120 2ND AVE N	Quasi-independent	Occasional Music Space
Drinking Places (Alcoholic Bev	RESTURANT/CAFETERIA	Winners Bar & Grill	1913 DIVISION ST	Non-Independent	Occasional Music Space
Limited Service-Fast Food	APARTMENT: HIGH RISE (3 STORIES OR GREATER)	Yay Yay’s	1903 JEFFERSON ST	Quasi-independent	Occasional Music Space
Microbrewery	RESTURANT/CAFETERIA	Yee Haw Brewing Co.	423 6TH AVE S	Non-Independent	Occasional Music Space
NA	HOTEL/MOTEL	Yolan	401 KOREAN VETERANS BLVD	Quasi-independent	Occasional Music Space
Drinking Places (Alcoholic Bev	STRIP SHOPPING CENTER	Zanies Comedy Showplace Nashville	2025 8TH AVE S	Quasi-independent	Music Space

How many are actually categorized as “Nightclub” LU and/or Music / event business?

Just 47 - this is about 18.5%

11 of these are IMVs - almost half

nash_venue_data %>%
  filter(str_detect(BUSTYPE, "Music") |
           str_detect(BUSTYPE, "Event") |
           str_detect(LUDesc, "NIGHTCLUB") |
           str_detect(LUDesc, "THEATER")) %>%
  select(BUSTYPE, LUDesc, name, address_admin, IMV, music_space) %>% 
  kable() %>%
  kable_styling()

BUSTYPE	LUDesc	name	address_admin	IMV	music_space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	404 Bar & Grill	404 ELYSIAN FIELDS RD	Indep. Owned and Operated	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	AJ’s Good Time Bar	421 BROADWAY	Quasi-independent	Music Space
Music/Performance Venue	VACANT COMMERCIAL LAND	Ascend Amphitheater	310 1ST AVE S	Non-Independent	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Big Shotz	115 2ND AVE N	Quasi-independent	Occasional Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Bootleggers Inn	207 BROADWAY	Quasi-independent	Music Space
Musical Groups + Artists	METRO OTHER THAN OFC, SCHOOL,HOSP, OR PARK	Bridgestone Arena	501 BROADWAY	Non-Independent	Occasional Music Space
Musical Groups + Artists	MUSEUM OR OTHER CULTURAL ORG.	Country Music Hall of Fame and Museum	222 REP JOHN LEWIS WAY S	Non-Independent	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Dawg House Saloon	1522 DEMONBREUN ST	Indep. Owned and Operated	Occasional Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Dee’s Country Cocktail Lounge	102 E PALESTINE AVE	Quasi-independent	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Drkmttr Collective	1111 DICKERSON PIKE	Indep. Owned and Operated	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Famous Nashville	110 2ND AVE N	Quasi-independent	Music Space
Music/Performance Venue	THEATER/AUDITORIUM	Grand Ole Opry	2804 OPRYLAND DR	Non-Independent	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Honky Tonk Central	329 BROADWAY	Quasi-independent	Music Space
Small Resturants-Independents	NIGHTCLUB/LOUNGE	Island Vibes	1316 ANTIOCH PIKE	Quasi-independent	Occasional Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Jason Aldean’s Kitchen + Rooftop Bar	309 BROADWAY	Non-Independent	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Layla’s Honky Tonk	418 BROADWAY	Indep. Owned and Operated	Music Space
NA	NIGHTCLUB/LOUNGE	Loser Most Wanted Bar & Grill (Midtown)	111 4TH AVE S	Quasi-independent	Occasional Music Space
Full Service Resturants	NIGHTCLUB/LOUNGE	Lucky Bastard Saloon	408 BROADWAY	Quasi-independent	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Mickeys Tavern	2907 GALLATIN PIKE	Non-Independent	Occasional Music Space
Office Administrative Services	THEATER/AUDITORIUM	Musicians Hall of Fame and Museum	417 4TH AVE N	Non-Independent	Occasional Music Space
Musical Groups + Artists	OFFICE BLDG (3 OR MORE STORIES)	Nashville Children’s Theatre	700 PRESIDENT RONALD REAGAN WAY	Non-Independent	Occasional Music Space
Office Administrative Services	THEATER/AUDITORIUM	Nashville Municipal Auditorium	417 4TH AVE N	Non-Independent	Music Space
Musical Groups + Artists	STRIP SHOPPING CENTER	Nashville Nightlife Theater	2416 MUSIC VALLEY DR	Non-Independent	Music Space
Full Service Resturants	NIGHTCLUB/LOUNGE	Nudie’s Honky Tonk	409 BROADWAY	Non-Independent	Music Space
Event Venue	TERMINAL/DISTRIBUTION WARHOUSE	Oz Arts Nashville	6172 COCKRILL BEND CIR	Non-Independent	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Rebar at the Dam	3248 BLACKWOOD DR	Quasi-independent	Occasional Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Red Door Saloon	1816 DIVISION ST	Non-Independent	Occasional Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Red Door Saloon East	1010 FORREST AVE	Non-Independent	Occasional Music Space
Music/Performance Venue	CLUB/UNION HALL/LODGE	Rocketown (Main Building)	601 4TH AVE S	Non-Independent	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Rosie’s Twin Kegs	413 THOMPSON LN	Indep. Owned and Operated	Occasional Music Space
Musical Groups + Artists	RECREATIONAL	Ryman Auditorium	116 REP JOHN LEWIS WAY N	Non-Independent	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Springwater Supper Club & Lounge	2701 POSTON AVE	Indep. Owned and Operated	Occasional Music Space
Musical Groups + Artists	STRIP SHOPPING CENTER	Texas Troubadour Theatre	2416 MUSIC VALLEY DR	Quasi-independent	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	The 5 Spot	1006 FORREST AVE	Indep. Owned and Operated	Music Space
NA	NIGHTCLUB/LOUNGE	The Basement East	917 WOODLAND ST	Quasi-independent	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	The Big Bang Dueling Pianos	209 3RD AVE N	Quasi-independent	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	The Cobra	2511 GALLATIN AVE	Indep. Owned and Operated	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	The Donelson Pub	945 ALLEN RD	Quasi-independent	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	The High Watt	1 CANNERY ROW	Non-Independent	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	The Lipstick Lounge	1400 WOODLAND ST	Indep. Owned and Operated	Music Space
Small Resturants-Independents	NIGHTCLUB/LOUNGE	The Local Nashville	110 28TH AVE N	Quasi-independent	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	The Roadside Bar & Grill	4617 OLD HICKORY BLVD	Quasi-independent	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	The Stage on Broadway	412 BROADWAY	Quasi-independent	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	The Station Inn	402 12TH AVE S	Indep. Owned and Operated	Music Space
Drinking Places (Alcoholic Bev	NIGHTCLUB/LOUNGE	Tootsie’s Orchid Lounge	422 BROADWAY	Non-Independent	Music Space
NA	NIGHTCLUB/LOUNGE	Twelve Keys Saloon	4719 ANDREW JACKSON PKWY	Indep. Owned and Operated	Music Space
Full Service Resturants	NIGHTCLUB/LOUNGE	Wildhorse Saloon	120 2ND AVE N	Quasi-independent	Occasional Music Space

6.4. Venue and Property Ownership

At how many venues is the owner of the property and owner of the venue the same? Or have the same address?

Note that a few addresses have some address alias problems in the property data and are corrected here.

Music Spaces - is the owner’s address the same as the property address (a likely sign of site control)

nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  group_by(site_control, IMV) %>%
  tally() %>%
  kable() %>%
  kable_styling()

site_control	IMV	n
Off-Site Owner Address	Indep. Owned and Operated	17
Off-Site Owner Address	Non-Independent	33
Off-Site Owner Address	Quasi-independent	33
On-Site Owner Address	Indep. Owned and Operated	5
On-Site Owner Address	Non-Independent	2
On-Site Owner Address	Quasi-independent	8
NA	Indep. Owned and Operated	2
NA	Non-Independent	5
NA	Quasi-independent	8

7. Venues and Threats

• What are the venues listed as threatened, where are they? (map) What are their characteristics?

nash_venue_data %>%
  filter(threats_neighbors == 1 |
           threats_cost == 1 |
           threats_licensing == 1) %>%
  select(name, address_admin, APN, threats_neighbors, threats_cost, threats_licensing, Condition, TotlAssd) %>%
  kable() %>%
  kable_styling()

name	address_admin	APN	threats_neighbors	threats_cost	threats_licensing	Condition	TotlAssd
3rd & Lindsley	805 PRESIDENT RONALD REAGAN WAY	09315006000	1	0	1	Average	4341200
Alley Taps	162 4TH AVE N 205	093061F20500CO	0	1	0	Average	222880
Andrew Jackson Hall-TPAC	301 REP JOHN LEWIS WAY N	09302300700	0	1	0	NA	0
Ascend Amphitheater	310 1ST AVE S	09306004100	1	0	0	NA	0
CE gallery (WEHO and/or Madison location)	425 CHESTNUT ST	10503017100	0	1	0	Average	17571280
Cafe Coco	210 LOUISE AVE	09215010600	1	1	1	Average	426920
Corner Bar at Elliston Place	2200 ELLISTON PL	09215011300	1	1	0	Average	2248400
Deep Tropics (Music Festival)	900 ROSA L PARKS BLVD	08213036600	0	1	0	NA	0
Drkmttr Collective	1111 DICKERSON PIKE	08203000500	1	1	1	Average	124040
EXIT/IN	2208 ELLISTON PL	09215011000	0	1	0	Average	2015120
Grimey’s New & Preloved Music	1060 E TRINITY LN	07206022000	0	1	0	Average	729200
Moonlite Drive-in	941 B MAIN ST	082124D90000CO	0	1	0	NA	0
Out Loud Music Festival	14 JAMES ROBERTSON PKWY	08215006700	0	1	0	NA	1495720
The Basement	1604 8TH AVE S	10506019900	0	1	0	Average	440080
The Basement East	917 WOODLAND ST	08212033600	0	1	0	Average	964880
The Eighth Room	2106 8TH AVE S	10510029900	0	1	0	Average	277640
The Office Nashville	604 GALLATIN AVE	08305012900	0	1	0	Average	2490000
Yay Yay’s	1903 JEFFERSON ST	09203042000	0	1	0	Average	1920000

• What properties have the highest disparity between estimated square footage value and assessed value?

8. Change in Nashville

• Map of change in rents by census tract (over 10 years)

8.2. Property appraisal values for recent sales

• Price per sqft by grid cell in Nashville (based on cadastral data)

parcels = st_read("~/Github/Nashville_IMV/data/metro/Nashville_Parcel_data.shp") %>% st_transform(4326)

## Reading layer `Nashville_Parcel_data' from data source 
##   `C:\Users\Michael\Documents\GitHub\Nashville_IMV\data\metro\Nashville_Parcel_data.shp' 
##   using driver `ESRI Shapefile'
## Simple feature collection with 273112 features and 63 fields (with 22 geometries empty)
## Geometry type: MULTIPOLYGON
## Dimension:     XY
## Bounding box:  xmin: 1656738 ymin: 595512.4 xmax: 1817374 ymax: 755221.4
## Projected CRS: NAD83 / Tennessee (ftUS)

Filtering non-zero sales since 2020, joining to fishnet and averaging sales price by sq footage

fishnet_parcels <- st_make_grid(d1_aggregates_nash %>%
                          st_transform(crs = 2274), 
                        cellsize = 5280/2) %>% #size in feet - half mile
  st_sf() %>%
  st_transform(crs = 4326)

fishnet_parcels <- fishnet_parcels[d1_aggregates_nash %>%
                          st_transform(crs = 4326),] %>%
  mutate(uniqueID = rownames(.)) %>%
  select(uniqueID) %>%
  mutate(lon=map_dbl(geometry, ~st_centroid(.x)[[1]]),
         lat=map_dbl(geometry, ~st_centroid(.x)[[2]]))

# Join the fishet to the points

fishnet_parcels <- st_join(fishnet_parcels, 
                parcels %>%
                  filter(SalePrice > 0,
                         year(ymd(OwnDate))> 2020,
                         st_is_valid(.)) %>%
                  #sample_n(1000) %>%
                  mutate(lon=map_dbl(geometry, ~st_centroid(.x)[[1]]),
                         lat=map_dbl(geometry, ~st_centroid(.x)[[2]])) %>%
                  filter(is.na(lon)== FALSE,
                         is.na(lat)== FALSE) %>%
                  st_as_sf(coords = c("lon", "lat"), crs = 4326), 
                join = st_intersects, 
                left = TRUE) %>%
  select(uniqueID, TotlAppr, starea) %>%
  group_by(uniqueID) %>% 
  summarise(medianAppraisal = median(TotlAppr/starea, na.rm = TRUE),
            n_sales = n()) %>%
  #mutate(n = ifelse(n == 1, 0, n)) %>%
  #rename(n_venues = n) %>%
  as.data.frame() %>%
  select(-geometry) %>%
  left_join(fishnet_parcels, .)

## Joining with `by = join_by(uniqueID)`

# Make sure you set the labels here to reflect the actual max density by cell

max(fishnet_parcels$medianAppraisal)

## [1] NA

ggplot()+
  geom_sf(data = fishnet_parcels %>%
            filter(is.na(medianAppraisal) == FALSE), 
          aes(fill = medianAppraisal),
          color = "transparent",
          alpha = 0.6)+
 scale_fill_viridis('Price sqft', direction = -1)+
  geom_sf(data = d1_aggregates_nash %>%
            st_transform(4326), fill = "transparent")+
  geom_point(data = nash_venue_data %>%
         filter(music_space == "Music Space") %>%
           filter(IMV == "Indep. Owned and Operated"),
             aes(x = x, y = y, color = IMV),
             size = 1.5,
             alpha = 0.5)+
  labs(
    title = "Median Appraised Value per Square Foot, Sales 2021-23",
    subtitle = "Half mile grid",
    caption = "Data: PennPraxis, Metro Nashville")+
  mapTheme

8.2.1. Venue exposure to real estate risk

Venue Appraised Value / sqft relative to median area appraisal (fishnet cell)

If the value is “above” the y = x line, that means the neighborhood square footage appraisal value of recent sales is higher than the square footage appraisal value of the building.

nash_venue_data %>%
  mutate(value_sqft = TotlAppr/Area_sqft) %>%
  st_as_sf(coords = c("x", "y"), 
                              crs = 4269) %>%
                     st_transform(4326) %>%
  st_join(., fishnet_parcels) %>%
  filter(value_sqft < 1000) %>%
  filter(music_space == "Music Space") %>%
  ggplot()+
  geom_point(aes(y = value_sqft, x = medianAppraisal))+
  geom_abline(slope = 1)+
  facet_wrap(~IMV)+
  plotTheme

What are the most exposed venues as far as ratio of median appraisal to their appraisal?

nash_venue_data %>%
  mutate(value_sqft = TotlAppr/Area_sqft) %>%
  st_as_sf(coords = c("x", "y"), 
                              crs = 4269) %>%
                     st_transform(4326) %>%
  st_join(., fishnet_parcels) %>%
  as.data.frame() %>%
  filter(music_space == "Music Space") %>%
  mutate(appraisal_ratio = medianAppraisal/value_sqft) %>%
  select(name, appraisal_ratio, value_sqft, address_admin, medianAppraisal, TotlAppr, LUDesc, IMV) %>%
  arrange(-appraisal_ratio) %>%
  kable() %>%
  kable_styling()

name	appraisal_ratio	value_sqft	address_admin	medianAppraisal	TotlAppr	LUDesc	IMV
Musicians Corner	1432.5397460	1.959178e-01	2500 WEST END AVE	280.66007	779000	PARK OR RECREATION	Non-Independent
Ray Stevens CabaRay	15.6853618	2.673632e+01	5724 RIVER RD	419.36887	7640000	RESTURANT/CAFETERIA	Quasi-independent
American Legion Post 82	10.5318843	2.574478e+01	3204 GALLATIN PIKE	271.14108	2254100	CLUB/UNION HALL/LODGE	Quasi-independent
Cheekwood Botanical Garden and Museum of Art	10.4726478	6.819147e+00	111 CHEEK RD	71.41452	15707582	MUSEUM OR OTHER CULTURAL ORG.	Quasi-independent
Eastside Bowl	9.7369319	1.356816e+01	1508 GALLATIN PIKE	132.11220	9019100	STRIP SHOPPING CENTER	Quasi-independent
Bucanas 2009	9.2014970	1.424986e+01	3802 NOLENSVILLE PIKE	131.12006	5487200	STRIP SHOPPING CENTER	Quasi-independent
Grimey’s New & Preloved Music	4.8591219	5.580043e+01	1060 E TRINITY LN	271.14108	1823000	STRIP SHOPPING CENTER	Quasi-independent
Nashville Nightlife Theater	4.8223170	2.097143e+01	2416 MUSIC VALLEY DR	101.13090	9354400	STRIP SHOPPING CENTER	Non-Independent
Texas Troubadour Theatre	4.8223170	2.097143e+01	2416 MUSIC VALLEY DR	101.13090	9354400	STRIP SHOPPING CENTER	Quasi-independent
The Bowery Vault	4.4387391	6.108516e+01	2905 GALLATIN PIKE	271.14108	612000	STRIP SHOPPING CENTER	Quasi-independent
404 Bar & Grill	4.3516875	3.013085e+01	404 ELYSIAN FIELDS RD	131.12006	315000	NIGHTCLUB/LOUNGE	Indep. Owned and Operated
3rd & Lindsley	4.1354623	1.245753e+02	805 PRESIDENT RONALD REAGAN WAY	515.17645	10853000	BUSINESS CENTER	Indep. Owned and Operated
Twelve Keys Saloon	4.1047923	2.476879e+01	4719 ANDREW JACKSON PKWY	101.67075	604200	NIGHTCLUB/LOUNGE	Indep. Owned and Operated
Sonny’s Patio Pub and Refuge	4.0164422	1.039319e+02	1318 6TH AVE N	417.43639	3984000	RESTURANT/CAFETERIA	Indep. Owned and Operated
Plaza Mariachi	3.3514939	3.912287e+01	3955 NOLENSVILLE PIKE	131.12006	8333500	SHOPPING CENTER	Non-Independent
The Electric Jane	3.2851208	1.499996e+02	1221 DIVISION ST	492.76666	13460000	APARTMENT: HIGH RISE (3 STORIES OR GREATER)	Indep. Owned and Operated
Nashville Municipal Auditorium	3.1053772	1.199997e+02	417 4TH AVE N	372.64421	14113400	THEATER/AUDITORIUM	Non-Independent
Ascend Amphitheater	2.9279555	1.499999e+02	310 1ST AVE S	439.19300	81936300	VACANT COMMERCIAL LAND	Non-Independent
The Eighth Room	2.6988915	9.373143e+01	2106 8TH AVE S	252.97096	694100	STRIP SHOPPING CENTER	Quasi-independent
Nashville Jazz Workshop	2.3877559	4.398922e+01	1012 BUCHANAN ST	105.03551	900600	OFFICE BLDG (ONE OR TWO STORIES)	Indep. Owned and Operated
Star Rover Sound	2.2833876	2.949483e+02	1400 ADAMS ST	673.48132	5010700	ONE STORY GENERAL RETAIL STORE	Quasi-independent
Zanies Comedy Showplace Nashville	2.2631985	1.143943e+02	2025 8TH AVE S	258.89701	3139300	STRIP SHOPPING CENTER	Quasi-independent
The Cobra	2.1761593	4.492654e+01	2511 GALLATIN AVE	97.76730	391400	NIGHTCLUB/LOUNGE	Indep. Owned and Operated
HOME (Helping Our Music Evolve)	2.1237729	1.483640e+02	615 MAIN ST	315.09138	8272300	OFFICE BLDG (ONE OR TWO STORIES)	Quasi-independent
The High Watt	2.0961535	2.350814e+02	1 CANNERY ROW	492.76666	7065700	NIGHTCLUB/LOUNGE	Non-Independent
The Vinyl Lounge	2.0295363	5.454001e+01	1414 3RD AVE S	110.69092	1401700	TERMINAL/DISTRIBUTION WARHOUSE	Quasi-independent
The Nashville Palace	1.9987306	5.059756e+01	2611 A MCGAVOCK PIKE	101.13090	2953400	ONE STORY GENERAL RETAIL STORE	Non-Independent
The Basement	1.9514830	1.403173e+02	1604 8TH AVE S	273.82685	1100200	OFFICE BLDG (ONE OR TWO STORIES)	Indep. Owned and Operated
The East Room	1.9293442	5.067385e+01	2412 GALLATIN AVE	97.76730	750500	STRIP SHOPPING CENTER	Indep. Owned and Operated
Oz Arts Nashville	1.8631645	1.163039e+01	6172 COCKRILL BEND CIR	21.66934	2533100	TERMINAL/DISTRIBUTION WARHOUSE	Non-Independent
Riverside Revival Nashville	1.8080758	9.679551e+01	1600 RIVERSIDE DR	175.01361	5523500	OFFICE BLDG (ONE OR TWO STORIES)	Non-Independent
The Row Kitchen & Pub	1.7875014	1.780929e+02	110 LYLE AVE	318.34134	1706700	RESTURANT/CAFETERIA	Quasi-independent
Solberg Studios	1.6965495	4.683196e+01	1618 JEFFERSON ST	79.45273	224400	PARKING LOT	Quasi-independent
Belcourt Theatre	1.6963365	1.968057e+02	2100 BELCOURT AVE	333.84873	1800300	MUSEUM OR OTHER CULTURAL ORG.	Non-Independent
The Local Nashville	1.6745206	2.394804e+02	110 28TH AVE N	401.01481	1773400	NIGHTCLUB/LOUNGE	Quasi-independent
The Station Inn	1.6417244	3.001519e+02	402 12TH AVE S	492.76666	3399400	NIGHTCLUB/LOUNGE	Indep. Owned and Operated
Commodore Grille (Holiday Inn Vanderbilt)	1.4931209	2.685749e+02	2613 WEST END AVE	401.01481	33342500	HOTEL/MOTEL	Non-Independent
Dee’s Country Cocktail Lounge	1.4100012	1.038931e+01	102 E PALESTINE AVE	14.64893	194600	NIGHTCLUB/LOUNGE	Quasi-independent
EXIT/IN	1.4038159	2.267686e+02	2208 ELLISTON PL	318.34134	5037800	RESTURANT/CAFETERIA	Non-Independent
The End	1.3836681	2.300706e+02	2219 ELLISTON PL	318.34134	1603500	RESTURANT/CAFETERIA	Indep. Owned and Operated
Vinyl Tap	1.3791449	5.231058e+01	2038 GREENWOOD AVE	72.14386	843100	RESTURANT/CAFETERIA	Quasi-independent
Brooklyn Bowl Nashville	1.3552967	3.566269e+02	915 3RD AVE N	483.33523	13981200	STRIP SHOPPING CENTER	Non-Independent
Sambuca (Restaurant)	1.3403658	3.676359e+02	1209 PINE ST	492.76666	28505315	APARTMENT: HIGH RISE (3 STORIES OR GREATER)	Non-Independent
Bobby’s Idle Hour Tavern	1.3298331	1.637843e+02	9 MUSIC SQ S	217.80579	1284200	BRANCH FINANCIAL INSTITUTION	Quasi-independent
Rudy’s Jazz Room	1.3083235	3.766398e+02	600 9TH AVE S	492.76666	6890700	RESTURANT/CAFETERIA	Indep. Owned and Operated
Jane’s Hideaway	1.2357601	6.666966e+01	403 GALLATIN AVE	82.38770	1335900	STRIP SHOPPING CENTER	Indep. Owned and Operated
Live Oak	1.1884247	4.931129e+02	1530 DEMONBREUN ST	586.02759	4725600	ONE STORY GENERAL RETAIL STORE	Quasi-independent
General Jackson Showboat	1.1540129	2.750055e+01	577 OPRY MILLS DR	31.73598	9116200	DOCK/MARINA	Non-Independent
Andrew Jackson Hall-TPAC	1.0633631	3.504393e+02	301 REP JOHN LEWIS WAY N	372.64421	28240500	OFFICE BLDG (3 OR MORE STORIES)	Non-Independent
James K Polk Theater-TPAC	1.0633631	3.504393e+02	301 REP JOHN LEWIS WAY N	372.64421	28240500	OFFICE BLDG (3 OR MORE STORIES)	Non-Independent
Delgado Guitars	1.0499978	5.513379e+01	919 C GALLATIN AVE	57.89036	2065400	SMALL WAREHOUSE	Quasi-independent
City Winery Nashville	1.0439998	1.599989e+02	600 MIDDLETON ST	167.03880	10872500	RESTURANT/CAFETERIA	Quasi-independent
The Countrypolitan Bar & Kitchen (inside Hotel Indigo)	1.0341049	3.500000e+02	301 UNION ST	361.93673	1524600	VACANT COMMERCIAL LAND	Non-Independent
Bongo Java After Hours Theatre	1.0313063	1.817289e+02	2007 BELMONT BLVD	187.41816	1424900	RESTURANT/CAFETERIA	Non-Independent
The Roadside Bar & Grill	1.0287644	1.556260e+01	4617 OLD HICKORY BLVD	16.01025	291500	NIGHTCLUB/LOUNGE	Quasi-independent
Nashville’s War Memorial Auditorium	1.0107479	3.686817e+02	301 6TH AVE N	372.64421	35331500	OFFICE BLDG (ONE OR TWO STORIES)	Non-Independent
Marathon Music Works	1.0029465	7.271735e+01	1404 CLINTON ST	72.93161	7032000	HEAVY MANUFACTURING	Non-Independent
Rocketown (Main Building)	0.9982206	1.673366e+02	601 4TH AVE S	167.03880	8892800	CLUB/UNION HALL/LODGE	Non-Independent
Grand Ole Opry	0.9935028	3.194353e+01	2804 OPRYLAND DR	31.73598	20204000	THEATER/AUDITORIUM	Non-Independent
Music City Center	0.9759835	4.500004e+02	201 REP JOHN LEWIS WAY S	439.19300	140742500	METRO OTHER THAN OFC, SCHOOL,HOSP, OR PARK	Non-Independent
Schermerhorn Symphony Center	0.9759817	4.500012e+02	1 SYMPHONY PL	439.19300	50573300	MUSEUM OR OTHER CULTURAL ORG.	Non-Independent
Drkmttr Collective	0.9378978	4.187598e+01	1111 DICKERSON PIKE	39.27539	310100	NIGHTCLUB/LOUNGE	Indep. Owned and Operated
The Lipstick Lounge	0.9122648	1.128742e+02	1400 WOODLAND ST	102.97116	1229200	NIGHTCLUB/LOUNGE	Indep. Owned and Operated
Jason Aldean’s Kitchen + Rooftop Bar	0.8745713	5.021809e+02	309 BROADWAY	439.19300	1312500	NIGHTCLUB/LOUNGE	Non-Independent
Bourbon Street Blues and Boogie Bar	0.8534368	4.240932e+02	218 4TH AVE N	361.93673	3694700	FAST FOOD	Quasi-independent
Ryman Auditorium	0.8272549	5.309041e+02	116 REP JOHN LEWIS WAY N	439.19300	33301700	RECREATIONAL	Non-Independent
The Office Nashville	0.8128867	1.013520e+02	604 GALLATIN AVE	82.38770	6225000	OFFICE BLDG (ONE OR TWO STORIES)	Quasi-independent
The 5 Spot	0.7911014	1.041430e+02	1006 FORREST AVE	82.38770	771200	NIGHTCLUB/LOUNGE	Indep. Owned and Operated
The Blue Room at Third Man Records	0.7889272	2.117290e+02	623 7TH AVE S	167.03880	4427000	RECORDING STUDIO	Quasi-independent
The Basement East	0.7706077	1.457276e+02	917 WOODLAND ST	112.29883	2412200	NIGHTCLUB/LOUNGE	Quasi-independent
The Listening Room	0.7652981	2.182663e+02	618 4TH AVE S	167.03880	6560300	RESTURANT/CAFETERIA	Indep. Owned and Operated
The Donelson Pub	0.7521871	3.262866e+01	945 ALLEN RD	24.54286	326900	NIGHTCLUB/LOUNGE	Quasi-independent
Bowie’s	0.7499567	4.826102e+02	174 3RD AVE N	361.93673	2522700	RESTURANT/CAFETERIA	Quasi-independent
McNamara’s Irish Pub	0.7186126	2.284852e+01	2740 OLD LEBANON PIKE	16.41924	1413300	RESTURANT/CAFETERIA	Indep. Owned and Operated
Flamingo Cocktail Club	0.6647051	1.665264e+02	509 HOUSTON ST	110.69092	1305700	RESTURANT/CAFETERIA	Quasi-independent
Bootleggers Inn	0.6568185	6.686672e+02	207 BROADWAY	439.19300	2038900	NIGHTCLUB/LOUNGE	Quasi-independent
Robert’s Western World	0.6166255	7.122524e+02	416 B BROADWAY	439.19300	2171800	ONE STORY GENERAL RETAIL STORE	Quasi-independent
Legends Corner	0.5794421	7.579584e+02	424 BROADWAY	439.19300	6933500	STRIP SHOPPING CENTER	Quasi-independent
Rosemary and Beauty Queen (bar); Pink Spiders (band)	0.5537810	1.487731e+02	1102 FORREST AVE	82.38770	1166500	RESTURANT/CAFETERIA	Indep. Owned and Operated
Bavarian Bierhaus	0.5448957	5.824232e+01	433 OPRY MILLS DR	31.73598	315252000	ENCLOSED MALL	Non-Independent
Play Dance Bar	0.5332670	2.355205e+02	1517 CHURCH ST	125.59531	5642600	STRIP SHOPPING CENTER	Indep. Owned and Operated
Nectar Urban Cantina	0.5259031	3.082615e+01	206 MCGAVOCK PIKE	16.21156	819100	RESTURANT/CAFETERIA	Indep. Owned and Operated
Anzie Blue	0.5244302	6.365932e+02	1803 21ST AVE S	333.84873	23570500	STRIP SHOPPING CENTER	Quasi-independent
Hard Rock Cafe	0.4987724	8.805479e+02	108 2ND AVE N	439.19300	19561900	RESTURANT/CAFETERIA	Non-Independent
Layla’s Honky Tonk	0.4504473	9.750153e+02	418 BROADWAY	439.19300	2548300	NIGHTCLUB/LOUNGE	Indep. Owned and Operated
Tootsie’s Orchid Lounge	0.4342829	1.011306e+03	422 BROADWAY	439.19300	3524200	NIGHTCLUB/LOUNGE	Non-Independent
The Big Bang Dueling Pianos	0.3946244	9.171675e+02	209 3RD AVE N	361.93673	4394700	NIGHTCLUB/LOUNGE	Quasi-independent
The Second Fiddle	0.3900853	1.125890e+03	420 BROADWAY	439.19300	3923500	ONE STORY GENERAL RETAIL STORE	Quasi-independent
Skull’s Rainbow Club	0.3845357	9.412305e+02	222 4TH AVE N	361.93673	4100000	OFFICE BLDG (3 OR MORE STORIES)	Indep. Owned and Operated
Johnny Cash’s Kitchen & Saloon	0.3698348	1.187538e+03	121 3RD AVE S	439.19300	6207500	RESTURANT/CAFETERIA	Non-Independent
CE gallery (WEHO and/or Madison location)	0.3512420	3.151415e+02	425 CHESTNUT ST	110.69092	43928200	HOTEL/MOTEL	Quasi-independent
The Stage on Broadway	0.3493707	1.257097e+03	412 BROADWAY	439.19300	6571100	NIGHTCLUB/LOUNGE	Quasi-independent
Acme Feed & Seed	0.3395642	1.293402e+03	101 BROADWAY	439.19300	9577900	RESTURANT/CAFETERIA	Quasi-independent
Puckett’s Grocery & Restaurant Downtown	0.3297924	1.129936e+03	201 REP JOHN LEWIS WAY N	372.64421	17227000	OFFICE BLDG (3 OR MORE STORIES)	Non-Independent
Famous Nashville	0.3227813	1.360652e+03	110 2ND AVE N	439.19300	7705100	NIGHTCLUB/LOUNGE	Quasi-independent
Honky Tonk Central	0.3198029	1.373324e+03	329 BROADWAY	439.19300	5982200	NIGHTCLUB/LOUNGE	Quasi-independent
Southern Grist Brewing East Nashville	0.3146151	1.479657e+02	754 DOUGLAS AVE	46.55223	837900	RESTURANT/CAFETERIA	Quasi-independent
Luke’s 32 Bridge Food & Drink	0.2666450	1.647107e+03	301 BROADWAY	439.19300	3587400	ONE STORY GENERAL RETAIL STORE	Quasi-independent
Nudie’s Honky Tonk	0.2624206	1.673623e+03	409 BROADWAY	439.19300	7290300	NIGHTCLUB/LOUNGE	Non-Independent
Jimmy Buffett’s Margaritaville	0.2591134	1.694984e+03	322 BROADWAY	439.19300	14766700	RESTURANT/CAFETERIA	Non-Independent
The Valentine	0.2586046	1.698318e+03	312 BROADWAY	439.19300	5918300	RESTURANT/CAFETERIA	Non-Independent
Nashville Underground	0.2294781	1.913877e+03	105 BROADWAY	439.19300	16673700	RESTURANT/CAFETERIA	Quasi-independent
AJ’s Good Time Bar	0.2215136	1.982691e+03	421 BROADWAY	439.19300	4318300	NIGHTCLUB/LOUNGE	Quasi-independent
Lucky Bastard Saloon	0.2101616	2.089787e+03	408 BROADWAY	439.19300	8192800	NIGHTCLUB/LOUNGE	Quasi-independent
Ole Red	0.1613479	2.722025e+03	300 BROADWAY	439.19300	16600000	RESTURANT/CAFETERIA	Quasi-independent
Analog at Hutton Hotel	0.1507480	2.111746e+03	1808 WEST END AVE	318.34134	50593200	HOTEL/MOTEL	Non-Independent
Dream Nightclub	0.1248586	2.898772e+03	210 4TH AVE N	361.93673	49245500	HOTEL/MOTEL	Non-Independent
Tequila Cowboy	0.0290219	1.513315e+04	305 BROADWAY	439.19300	32960000	RESTURANT/CAFETERIA	Quasi-independent
Alley Taps	0.0000000	Inf	162 4TH AVE N 205	361.93673	557200	RESIDENTIAL CONDO	Quasi-independent
Black Rabbit	0.0000000	Inf	218 3RD AVE N #100	361.93673	1207400	CONDOMINIUM OFC OR OTHER COM CONDO	Non-Independent
Country Music Hall of Fame and Museum	0.0000000	Inf	222 REP JOHN LEWIS WAY S	439.19300	41081800	MUSEUM OR OTHER CULTURAL ORG.	Non-Independent
Skydeck on Broadway	0.0000000	Inf	600 B BROADWAY	296.19419	13629800	VACANT COMMERCIAL LAND	Non-Independent
The Bluebird Cafe	0.0000000	Inf	4104 A HILLSBORO PIKE	329.26407	700900	CONDOMINIUM OFC OR OTHER COM CONDO	Indep. Owned and Operated

8.2.2. Risk indicators

Total area sales (half mile grid cell), appraised value, appraised value relative to area appraisal median (2021-23), IMV status, programming rating.

Formula:

Risk = sum of:

Quartile Value (amongst music spaces) of: -Median value of appraisals in sales since 2021 w/in half mile -Number of sales since 2021 w/in half mile -Parcel appraised value as a pct of sqft value of sales w/in half mile

Plus: - Physical condition (1 if average, 2 if fair, 4 if poor or very poor) - Community ranked Programming investment (e.g. experimentation, community focus 1 - 4) - Community threat assessment - If multiple threats identified (cost, licensing, neighborhs) - 4, if 1, 3, of none - 0 - Site ownership - 4 if owner != property owner, -4 if owner == property owner

WOULD LIKE TO ADD CAPACITY TO THIS

risk_matrix <- nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  mutate(value_sqft = TotlAppr/Area_sqft) %>%
  st_as_sf(coords = c("x", "y"), 
                              crs = 4269) %>%
                     st_transform(4326) %>%
  st_join(., fishnet_parcels) %>%
  mutate(appraisal_ratio = 100*(medianAppraisal/value_sqft)) %>%
  as.data.frame() %>%
  select(appraisal_ratio, experimentation_ord, community_focus_ord,
         name, address_admin, n_sales, medianAppraisal, value_sqft)%>%
  gather(-name, -address_admin, key = "variable", value = "value") %>%
  group_by(variable) %>%
  summarize(quantile = scales::percent(c(0.25, 0.5, 0.75)), 
            quartile = quantile(value, c(0.25, 0.5, 0.75), na.rm = TRUE)) %>%
  spread(quantile, quartile) %>% # join it back to the original data analysis
  left_join(., nash_venue_data %>%
  filter(music_space == "Music Space") %>%
  mutate(value_sqft = TotlAppr/Area_sqft) %>%
  st_as_sf(coords = c("x", "y"), 
                              crs = 4269) %>%
                     st_transform(4326) %>%
  st_join(., fishnet_parcels) %>%
  mutate(appraisal_ratio = 100*(medianAppraisal/value_sqft)) %>%
  mutate(programming_sum = experimentation_ord +
           community_focus_ord + event_promotion_ord) %>%
  as.data.frame() %>%
   select(appraisal_ratio, experimentation_ord, community_focus_ord,
         name, address_admin, n_sales, medianAppraisal, value_sqft)%>%
  gather(-name, -address_admin, key = "variable", value = "value"))%>% 
  mutate(quantile = case_when(value >= `75%` ~ 4,
                              value <= `25%` ~ 1,
                              value > `25%` & value < `50%` ~ 2,
                              value >= `50%` & value < `75%` ~ 3)) %>%
  select(-'25%', -'50%', -'75%') %>%
  group_by(name, address_admin, variable) %>%
  summarize(quantile = quantile) %>%
  pivot_wider(names_from = variable, values_from = quantile) %>%
  left_join(., nash_venue_data %>%
              filter(music_space == "Music Space") %>%
              select(IMV, name, address_admin, APN, music_space, Condition, 
                     threats_neighbors, threats_cost, threats_licensing, site_control)) %>%
  mutate(Condition_ord = case_when(str_detect(Condition, "Poor") == TRUE ~ 4,
                                   str_detect(Condition, "Fair") == TRUE ~ 2,
                                   str_detect(Condition, "Average") == TRUE ~ 1,
                                   is.na(Condition) == TRUE ~ 1)) %>%
  mutate(community_threat_assessment = case_when(threats_neighbors + threats_cost + threats_licensing > 1  ~ 4,
                                                 threats_neighbors + threats_cost + threats_licensing == 1  ~ 3,
                                                 threats_neighbors + threats_cost + threats_licensing < 1  ~ 0)) %>%
    mutate(site_control_assessment = case_when(site_control == "On-Site Owner Address"  ~ -4,
                                                 site_control == "Off-Site Owner Address" ~ 0,
                                               is.na(site_control) == TRUE ~ 0)) %>%
  mutate(cumulative_risk = sum(appraisal_ratio + Condition_ord + community_threat_assessment +
                                 experimentation_ord + community_focus_ord + #value_sqft +
                                 medianAppraisal + n_sales + site_control_assessment, na.rm = TRUE))

## Warning: Returning more (or less) than 1 row per `summarise()` group was deprecated in
## dplyr 1.1.0.
## ℹ Please use `reframe()` instead.
## ℹ When switching from `summarise()` to `reframe()`, remember that `reframe()`
##   always returns an ungrouped data frame and adjust accordingly.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

## `summarise()` has grouped output by 'variable'. You can override using the
## `.groups` argument.
## Joining with `by = join_by(variable)`
## `summarise()` has grouped output by 'name', 'address_admin'. You can override
## using the `.groups` argument.
## Joining with `by = join_by(name, address_admin)`

Risk exposure levels are relatively similar between venue types.

ggplot(risk_matrix)+
  geom_histogram(aes(cumulative_risk), binwidth = 2)+
  facet_wrap(~IMV)+
  plotTheme

risk_matrix %>%
  group_by(IMV) %>%
  summarize(mean_risk = mean(cumulative_risk, na.rm = TRUE),
            mean_appraisal_ratio = mean(appraisal_ratio, na.rm = TRUE),
            mean_n_sales = mean(n_sales, na.rm = TRUE),
            meanappraisal = mean(medianAppraisal, na.rm = TRUE))

## # A tibble: 3 × 5
##   IMV                  mean_risk mean_appraisal_ratio mean_n_sales meanappraisal
##   <chr>                    <dbl>                <dbl>        <dbl>         <dbl>
## 1 Indep. Owned and Op…      13.8                 2.79         2.42          2.12
## 2 Non-Independent           14.2                 2.42         2.55          2.88
## 3 Quasi-independent         13.8                 2.43         2.63          2.55

  ggplot()+
  geom_sf(data = d1_aggregates_nash, fill = "transparent")+
  geom_point(data = risk_matrix %>%
  left_join(., nash_venue_data %>%
              select(x, y, name, address_admin)) %>%
              mutate(risk_level = case_when(cumulative_risk > 15 ~ "Highest Risk",
                                            cumulative_risk < 15 & cumulative_risk > 10 ~ "Average Risk",
                                            cumulative_risk < 11 ~ "Lowest Risk")) %>%
    filter(is.na(risk_level) == FALSE),
  aes(x = x, y = y), alpha = 0.5, color = "red")+
  facet_grid(risk_level~IMV)+
  mapTheme

## Joining with `by = join_by(name, address_admin)`

9. Maps for report

• Venue profile accompaniments (shows parcel and neighborhood context)

Here is an example - make a ggbasemap with a specific buffer area around the parcel (identified in the code by APN) and then just map the parcel.

9.1. 3rd and Lindsley

base_map_3rd_and_lindsley <-get_stamenmap(bbox = unname(st_bbox(ll(st_buffer(st_centroid(nash_venue_data %>%
                                                                                filter(name == "3rd & Lindsley") %>%
                                                                                  st_as_sf(coords = c("x", "y"), crs = 4269) %>% st_transform(4326)),
                                                                  300)))),
                    force = TRUE, maptype = "toner-lite", zoom = 16)

## ℹ Map tiles by Stamen Design, under CC BY 3.0. Data by OpenStreetMap, under ODbL.

ggmap(base_map_3rd_and_lindsley) +
 geom_sf(data = ll(nash_venue_data %>%
                     filter(name == "3rd & Lindsley") %>%
                     st_as_sf(coords = c("x", "y"), 
                              crs = 4269) %>%
                     st_transform(4326)),
            inherit.aes = FALSE, 
         color = "red",
         size = 2)+
  labs(
    title = "Focus Venue - 3rd and Lindsley",
    subtitle = "",
    caption = "Data: PennPraxis, Metro Nashville")+
  mapTheme

## Coordinate system already present. Adding new coordinate system, which will
## replace the existing one.

ggmap(base_map_3rd_and_lindsley) +
 geom_sf(data = ll(right_join(parcels,
                             nash_venue_data %>%
                     filter(name == "3rd & Lindsley")) %>%
                     st_transform(4326)),
            inherit.aes = FALSE, 
         color = "red",
         fill = "red",
         alpha = 0.4)+
  labs(
    title = "Focus Venue - 3rd and Lindsley",
    subtitle = "",
    caption = "Data: PennPraxis, Metro Nashville")+
  mapTheme

## Joining with `by = join_by(ParID, APN, Council, Owner, OwnDate, SalePrice,
## OwnAddr1, OwnAddr2, OwnCity, OwnState, OwnZip, PropAddr, Acres, LUDesc,
## FinishArea, LandAppr, ImprAppr, TotlAppr, LandAssd, ImprAssd, TotlAssd,
## AssessDate, geometry)`
## Coordinate system already present. Adding new coordinate system, which will
## replace the existing one.

9.2. Eastside Bowl

base_map_eastside_bowl <-get_stamenmap(bbox = unname(st_bbox(ll(st_buffer(st_centroid(nash_venue_data %>%
                                                                                filter(name == "Eastside Bowl") %>%
                                                                                  st_as_sf(coords = c("x", "y"), crs = 4269) %>% st_transform(4326)),
                                                                  300)))),
                    force = TRUE, maptype = "toner-lite", zoom = 17)

## ℹ Map tiles by Stamen Design, under CC BY 3.0. Data by OpenStreetMap, under ODbL.

ggmap(base_map_eastside_bowl) +
 geom_sf(data = ll(nash_venue_data %>%
                     filter(name == "Eastside Bowl") %>%
                     st_as_sf(coords = c("x", "y"), 
                              crs = 4269) %>%
                     st_transform(4326)),
            inherit.aes = FALSE, 
         color = "red",
         size = 2)+
  labs(
    title = "Focus Venue - Eastside Bowl",
    subtitle = "",
    caption = "Data: PennPraxis, Metro Nashville")+
  mapTheme

## Coordinate system already present. Adding new coordinate system, which will
## replace the existing one.

ggmap(base_map_eastside_bowl) +
 geom_sf(data = ll(right_join(parcels,
                             nash_venue_data %>%
                     filter(name == "Eastside Bowl")) %>%
                     st_transform(4326)),
            inherit.aes = FALSE, 
         color = "red",
         fill = "red",
         alpha = 0.4)+
  labs(
    title = "Focus Venue - 3rd and Lindsley",
    subtitle = "",
    caption = "Data: PennPraxis, Metro Nashville")+
  mapTheme

## Joining with `by = join_by(ParID, APN, Council, Owner, OwnDate, SalePrice,
## OwnAddr1, OwnAddr2, OwnCity, OwnState, OwnZip, PropAddr, Acres, LUDesc,
## FinishArea, LandAppr, ImprAppr, TotlAppr, LandAssd, ImprAssd, TotlAssd,
## AssessDate, geometry)`
## Coordinate system already present. Adding new coordinate system, which will
## replace the existing one.

- Broader context maps (e.g. whole city with venues and some basemap stuff?)

• Area maps for any geographic focus (e.g. North Nashville)